VOUS AVEZ LA PASSION ? 





ACTUALITE 



M ES 

BANCS D'ESSAIS BANCS D'ESSAIS UTILITAIRES 
(Suite) 



GRAND 

:oncours 




SOLUTION : L'ILE 



POSTER 



ETOILES , 



REDUCTION 
DU CODE BASIC 



PUISSANCE 4 



BANCS D'ESSAIS 



TAIRE S 



DOUBLE MODE 



DOSSIER : LES 
INDISPENSABLES 
DE VOTRE 
LOGITHEQUE 



LEJCOIN 
DES AFFAIRES 



VOUS AVEZ DIT 
ASTUCES? 



BULLETIN 



TELEJÉH ARGEMEJ^Ï '"' ■ 'V TRUCS ET ASTUCES D'ABONNEMENT 



4f 



A V 



Martech 



Une question peut se poser en ce mo- 
ment : aurions-nous besoin d'exercer 
l'âme d'artiste qui sommeille en chacun 
de nous ou ne s'agit-il que de faire le 
clown ? En effet, un nouveau logiciel sur 
le cirque va faire son entrée sous le cha- 
piteau des présentations de logiciels sous 
le nom de Circus, Circus. cette simula- 
tion vous propose 6 numéros à effectuer : 
le dompteur, le lanceur de couteaux, 
l'homme canon, le trapéziste, le funam- 
bule et le plongeur. De belles courba- 
tures (dans les doigts !) en perspective... 

MARTECH 
Distribué par Ubi Soft 



LORICIELS 



Ça y est ! Un bout du projet mystérieux 
et Top Secret de Loriciels a montré son 
bout de nez, ou plutôt le bout de ses 
poils car il porte le nom de SKWEEK et 
nous est d'abord apparu sous l'aspect 
qu'il a pris pour faire notre 
connaissance sur Terre. Après s'être 
présenté et nous avoir tous charmés, il a 
consenti à nous expliquer l'objet de sa 
visite sur Terre : il est le héros d'un jeu 
d'arcade de style Pacmania remis au 
goût du jour dans lequel il doit 
traverser 99 tableaux différents (qui 
représentent 99 continents contaminés) 
en peignant en rose toutes les dalles 
bleues ; mais, bien entendu, certaines 
dalles sont piégées et réservent bien des 
surprises... 

Ce logiciel possède 2 modes de jeux 
différents : un mode normal qui permet 
de gravir les tableaux un à un et un 
mode aléatoire qui permet de goûter 
directement à des niveaux plus élevés ; 
par ailleurs, la sortie sur nos écrans est 
prévue pour la fin du mois. 



LORICIELS 
81 rue delà Procession 
92500 RUEIL MALMAISON 
Tél. 1.47.52.11.33 
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Ubi soft 



Grandslam 



Voici tout simplement les dates prévues 
de sortie des logiciels que nous vous 
avons annoncés ou présentés en 
avant-première dans nos précédents 
numéros : 

Début mars : Puff/s Saga 

Hadès 

Fin mars : Night Hunter 
Skateball 
Iron Lord 



Ce mois-ci, un nouveau produit doit sortir sur nos écrans de CPC ; il s'agit 
de Pack Land qui espère connaître le même succès que Pacmania. Dans ce 
pays de Pac, vous acceptez d'aider un pauvre petit «Fairy» perdu et de lui 
faire retrouver son chemin vers «Fairyland». Pour cela, vous traverserez 
des villes, des déserts, des montagnes et autres dangereux ravins tout en 
faisant des rencontres dont vous vous passeriez bien... 

GRANDSLAM 
Distribué par Ubi Soft 
1 voie Félix Eboué 
94021 CRETEIL CEDEX 
Tél. 1.48.98.99.00 



HIGH S CORP 
38888 




Pack Land (Atari ST) 



BrITISH TELECOM 



C'est sous la signature de Firebird que 
doit sortir ce mois-ci Tyger Tyger. Dans 
cette nouvelle aventure, vous devez gui- 
der l'intrépide «Lance Tyger» dans une 
bataille sanglante durant 4 niveaux dé- 
chirants ayant pour toile de fond un pays 
mystique apparemment calme. C'est 
armé de votre fidèle épée que vous 
pénétrerez dans les profondeurs de la 
terre avec pour seule règle valable : «Tuer 
pour survivre». 

BRITISH TELECOM 
First Floor 

64-76 Nex Oxford Street 
LONDON WC 1A 1PS 
Tél. (44) 1379.6755 



Attention, 

RECRUTEMENT ! 

Si vous êtes un graphiste de génie et que 
vous recherchez un emploi ou un stage, 
contactez Loriciels ou envoyez votre 
curriculum vitae à l'adresse suivante : 
LORICIELS 
Recrutement graphistes 
81 rue de la Procession 
92500 RUEIL MALMAISON 
Tél. 1.47.52.11.33 

Si vous êtes dynamique, doué, program- 
meur expérimenté en assembleur ou/et 
en «C», alors Titus vous convie à une 
géniale croisière. . . Le bateau : Titus, des- 
tination : le succès... Ecrivez à : 
TITUS RECRUTEMENT 
28 ter Av. de Versailles 
93220 GAGNY 
Tél. 1.43.32.10.92 



Palace software 




La patience finit toujours par payer ! Si, si, croyez-moi... La preuve, c'est 
que Barbarian 2 va enfin arriver sur nos écrans CPC ; il vient en effet de 
rentrer dans la dernière ligne droite et pour preuve, voici une photo 
d'écran vous présentant un des nombreux adversaires que vous devrez 
affronter. La suite dans le banc d'essai complet que nous vous livrerons à 
sa sortie. Mais, en plus, dès aujourd'hui, nous pouvons vous annoncer un 
nouveau logiciel Palace Software prévu pour le début de l'été ; il s'agit 
d'une arcade-aventure s'intitulant Monster Muséum. Un beau soir, vous 
vous retrouvez tout seul enfermé dans un musée où il fait tout noir ! Non 
seulement vous avez horreur du noir mais en plus tout devient subitement 
vivant et commence alors une curieuse apparition de monstres. Comment 
sortir de ce cauchemar ? 

PALACE SOFTWARE 
The Old Forge Business Centre 
7 Caledonian Road 
LONDON NI 90X 
Tél. (44) 1.278.0751 




Avec le printemps et le retour logique des beaux jours, le goût des activités 
sportives va vous revenir ; aussi, pour tous les après-midi pluvieux ou les 
envies de rester devant votre CPC, vous allez pouvoir faire de nouveau un 
petit «green» avec Mini-Putt. Pouvant se jouer de 1 à 4 joueurs, cette 
simulation de golf vous propose plusieurs parcours, chacun d'eux étant 
illustré par un thème différent. De plus, il est possible d'obtenir une vue du 
dessus afin d'avoir une meilleure perspective et, pour terminer, il existe 3 
types d'obstacles dans un parcours avec par exemple des passages comme 
des ponts demandant des tirs très précis ; mais aussi des contretemps créés 
par l'apparition soudaine de barricades et enfin un minutage obligeant le 
joueur à effectuer son tir à un moment précis... Nous attendons avec 
impatience de voir le résultat final de ce logiciel. 

ELECTRONIC ARTS 
Distribué par Ubi Soft 



Melbourne 
house 

Il est très attendu sur Amstrad ; il est 
prévu pour la fin du mois... Serez-vous 
au rendez-vous pour sauver votre pe- 
tite amie des mains d'un individu un peu 
louche ? Mais de quoi parlent-ils donc ? 
Mais de Double Dragon, bien sûr !... 

Us GOLD 

Plongez dans les profondeurs de la 
grande bleue grâce aux possibilités de 
The Deep où vous vous trouvez aux 
commandes d'un navire de guerre. Vous 
croisez à la surface et l'investigation du 
fond de la mer vous met face à des pieu- 
vres géantes, des sous-marins ou des 
bases secrètes. En un mot, c'est une 
conversion de Woodplace et nous atten- 
dons sa sortie. 

US GOLD 

Bureau 816- Tour CIT 
BP 64 -3 rue de l'Arrivée 
75015 PARIS 
Tél. 1.43.35.06.75 
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Vous connaissez certainement le joystick Speed King qui tient dans la main mais pas dans la bouche. Ce sont des 
Anglais qui fabriquent cet engin. Mais ne croyez pas que leurs ambitions s'arrêtent aux simples périphériques. En 
effet, la prochaine Kpnix ne sera pas une manette mais une console de jeu. L'Europe se réveille après les assauts de 
Nintendo, de Sega et d'Atari. La Konix possède des caractéristiques très intéressantes. Elle est présentée sous la 
forme d'un socle eh «U» muni d'une base supportant les différents instruments de jeu. Il est en effet possible de 
posséder à la fois un volant, un manche à balai et un guidon de moto. L'équipement est complété par deux 
interrupteurs actionnables au pied. Alors on peut avoir réellement l'impression de piloter un véhicule. Parmi les 
autres accessoires, on trouvera un fusil léger (avec recul s'il vous plaît) transformable en pistolet, un joystick style 
manche à balai d'hélicoptère et enfin le plus incroyable : un fauteuil entier monté sur vérins hydrauliques et qui 
suit les mouvements de l'action ! Voyons un peu l'électronique de cet engin : un microprocesseur 8086 assisté par 
une puce à architecture Risc (fréquence 12 MHz). Il existe 3 résolutions : 

256 x 200 en 256 couleurs parmi 4096 - 256 x 200 en 16 couleurs parmi 40% - 512 x 200 en 16 couleurs parmi 4096 
Le son est traité sur 14 bits (presque l'équivalent d'un disque compact) en stéréophonie. 

Les jeux se présenteront sous forme de disquettes 3,5 pouces (comme IBM PS/2, AM1GA, ATARI, MACINTOSH) 
d'une capacité de 880 Ko qui seront lues par un lecteur spécial empêchant toute tentative de copie. 
Pourquoi parler de cet appareil dans Amstar & CPC ? Tout simplement parce qu'il s'agit d'une machine destinée 
aux joueurs acharnés et que l'utilisation des Amstrad est à plus de 80 % consacrée aux jeux. Alors attendons le 
mois d'août et nous verrons si la machine annoncée est bien là et surtout à quel prix elle sera vendue. 



DISCOLOGY 



Version 5.1 




POUR VOUS SURPASSER 

3 Programmes en 1 
pour votre Amstrad CPC 

L'EDITEUR: 

Un Editeur universel de secteurs et de fichiers. Grâce □ sa boïle à outils 
exceptionnelle, iDésassembleur Calculatrice, Listeur Basic.) tout devienl possible 

LE COPIEUR: 

Un Copieur intégral pour la sauvegarde de vos disquettes et cassettes. 
Il vous étonnero par ses performances et sa simplicité d 'utilisation. 



L'EXPLOREUR: 

Un graphique animé en 'Temps Réel" qui vous révélera tous les 
disquettes. Un programme sans équivalent. 



de vos 



LES 7 POINTS FORTS DE DISCOLOGY 

> Lo facilite . Grâce aux Fenêtres, aux Menus Déroulants et à l'Aide Intégrée 

> La vitesse ! 160 Ko de Langage Machine pur ! 

> La documentation : Un Manuel complet et une notice technique opprofond»e 

> La compatibilité : Il gère toutes les extensions rnflmrfjns eî les lecteurs 5 1 4 pouces. 

> Lo performance ; Incroyable et absolue. 

> L médit : Du vraimenl jamais vu ! 

> La référence ! Des milliers d'utilisateurs enthousiastes en France comme 

à l'Etranger. DISCOLOGY est reconnu et acclamé par la presse internationale 



1 

1 

i 

S 



Revendeurs contactez -nous 1 
DISCOLOGY Version 5 1 est disponible .mmediotemenl. sans irais de port oupres de MERIDIEN II 



5 m 7, La canebièra 13001 Man.ille Tél. : 91.94.1S.53 




Version 5.1 pour Amstrad CPC 
Disponibilité immédiate. 



BON DE COMMANDE 

□ Je commande DISCOLOGY au prix de 350 F 
a Je commande Master Save V 3.2 (Copteur seul) au prix de 1 90 F Je règle ma commande 

□ Je possède déjà Master Save et je commande DISCOLOGY □ par chèque |oint (port gratuit) 

Je joins ma disquette Master Save et je ne paye que 160 F □ contre-remboursement (+ 30 F de frais de port) 

Nom: i . Prénom — 

Adresse : . — . 

Code Postal : Ville : . Tél. : 



retourner à MERIDIEN Informatique - 5 et 7, La Canebière - 13001 MARSEILLE 




Les MILLE ET 
UN VOYAGES 



►Dis, raconte-moi une histoire ! Voici 
une demande embarrassante pour 
ceux qui n'ont pas une imagination dé- 
bordante... Avec ce logiciel, il y a énor- 
mément de combinaisons d'éléments dif- 
férentes ce qui fait que vous avez un grand 
nombre d'histoires à votre disposition ; 
de plus, il est possible d'en créer de nou- 
velles, alors. . . Quatre décors de fond sont 
disponibles : le pays de l'eau, la campa- 
gne, la ville et l'espace. Voici, à titre 
d'exemples, 2 histoires que nous avons 
créées au gré de la sélection de différen- 
tes icônes parmi celles dont nous dispo- 
sions. 





• Voici la merveilleuse histoire d'un 
fier soldat du royaume des contes. 
Il habite un château merveilleux aux 
tours de pierre. Mais chaque jour, il 
de partir à la découverte de l'uni- 
. Aussi, un matin, notre fier sol- 
dat s'embarque pour le grand voyage. 
Il a le désir de faire fortune, d'amas- 
ser les richesses les plus précieuses. 
C'est au cœur de la ville étrange avec 
bulles et couloirs de verre qu'il ren- 
contre soudain une reine maudite : 
chef des e 



Or, la reine maudite dispose d'une 
redoutable : ses malédictions 
pétrifient les ennemis. Le fier soldat 
jette toutes ses forces dans le com- 
bat qui se poursuit jusqu'au cœur de 
la grande ville avec ses tours et ses 
gratte-ciel. Mais grâce à un magicien, 
héros peut échapper à cet en- 
nemi redoutable. 

Ce combat est devenu une légende 
que tous les gens de ce pays connais- 
sent et racontent à leurs enfants. Mais 
bientôt, il rêve d'autres paysages et 
part visiter la ville d'Orient aux mille 
et un palais. On raconte qu'il a re- 
trouvé une amie et qu'ils font le 
bonheur de tous dans ce pays. 



• Voici la merveilleuse histoire d'un 
bel oiseau du royaume des animaux. 
Il habite au cœur d'une montagne 
avec ses neiges et ses glaciers. Mais 
chaque jour, il rêve de partir à la dé- 
couverte de l'univers. Aussi, un ma- 
tin, notre bel oiseau commence son 
grand voyagé. Pour parcourir la cam- 
pagne avec ses bois et ses jardins, il 
faut un moyen merveilleux et rapide. 
Aussi, il choisit une navette bleue et 
blanche, marquée d'étoiles. Le voyage 
le conduit au fin fond de la forêt avec 
ses arbres extraordinaires et c'est là 
qu'il se trouve soudain face à un 
ennemi redoutable : la sorcière de la 
nuit. Le combat est très rude et no- 
tre héros sait qu'il risque sa vie. Mais 
grâce à son habileté, notre héros sort 
du combat avec les honneurs. C'est 
après bien d'autres longs voyages 
qu'il choisit de s'installer dans le 
désert avec ses dunes et ses oasis. Et 
c'est ainsi qu'il est devenu le roi de 
ce pays et son règne durera encore 
mille et une années. 




Tout ceci n'est qu'un petit aperçu de ce 
que vous pouvez obtenir ; bien sûr, le 
schéma général reste toujours le même : 
le héros a envie de voyager, il part 
au-devant de multiples aventures et tout 
se termine toujours bien mais il faut con- 
sidérer les éléments qui entrent en scène 
et suscitent l'esprit imaginatif de l'en- 
fant... 

Edité par : Carraz Editions 
Prix indicatif: Non communiqué (seu- 
lement sur DK) 





Notre avis : 



Ce logiciel, qui s'adresse aux enfants de 3 à 8 ans, a une présentation soignée et finie ; de plus, il est ergonomique. Chaque 
décor principal est accompagné d'une musique légère et agréable. Il est simplement dommage que les graphismes ne soient 
pas colorés car c'est un peu tristounet. Enfin, dans l'option créer une histoire, vous avez trois possibilités : regarder l'histoire 
pour les tout-petits, voir et lire l'histoire pour les plus grands et, enfin, lire et pouvoir modifier l'histoire pour ceux qui savent 
écrire. Seulement, la version Amstrad ne possédant pas de synthèse vocale, le petit ne peut entendre l'histoire, la première 
possibilité n'est donc pas intéressante. Pour terminer, nous dirons que les histoires utilisent un vocabulaire étendu ce qui 
nécessitera sans doute la présence occasionnelle d'un plus grand pour profiter pleinement de ces 1001 voyages mais n'est-ce 
pas aussi un des buts recherchés que de réunir l'adulte et l'enfant devant l'histoire ? A noter aussi que le logiciel est livré avec 
des décors sur carton et des personnages à découper ce qui permet également de jouer sur papier. 




N O T E 




GRAND 
CONCOURS 



Cosmic Software vient de voir le jour en éditant deux compilations de jeux 
d'arcades s'intitulant respectivement les Inédits I et les Inédits H. Pour fêter 
cet événement, la société vous propose dans les colonnes d'Amstar & CPC 
un concours très facile. N'hésitez donc pas à vous précipiter sur la page 
ci-contre et remplissez avidement le questionnaire. 




















| Les lots : 



1er prix : Bon d'achat de 1500 
francs chez Général 
2ème prix : Bon d'achat de 750 
francs chez Général 
3ème prix : 3 logiciels ESAT Soft- 
ware 

du 4ème au lOème prix : 1 logi- 
ciel à choisir dans le catalogue 
ESAT. 

(Sur simple demande, il est possible d'ob- 
tenir le catalogue ESAT à la rédaction d'Ams- 
tar & CPC). 



Quel est le nom du label de jeux de la société ESAT SOFTWARE ? 



Quel est le slogan des jeux les INEDITS ? 



Combien de jeux contiennent les Inédits 1 et les Inédits 2 ? 
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Quel est le nom de l'auteur de tous les jeux des Inédits ? 















Quelle est la caractéristique commune à 3 jeux des Inédits ? 
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Question 


subsidiaire : 









Donnez le nombre de bulletins comportant toutes les bonnes réponses que nous rece- 
vrons : 




(en cas d'ex aequo, un tirage au sort sera effectué) 



Renvoyez ce questionnaire à CONCOURS MENSUEL AMSTAR 
Editions SORACOM - BP11 - 35170 BRUZ 

Aucune photocopie ne sera acceptée. Pour le mineur 
gagnant, l'autorisation des parents sera nécessaire. 



DERNIER DELAI LE 15 AVRIL 1989 




Adresse 

Code postal 



Ville 



Signature : 

Si je gagne, je voudrais mon lot sur : 
□ K7 □ DK 




AMSTRAD DISQUETTES 
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Boutiques MICROMANIA 
Bénéficiez à Paris des prix 
MICROMANIA 



Une nouvelle boutique 
MICROMANIA à Paris. 
Ouverture en mari. 

Forum des Halles 

5, rue Pirouette ■ Niveau — 2 

Métro etR.E.R, les Halles 
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75008 PARIS 
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DEMENT !H Kit de telecKargement 99 F 
avec ce lût vous allez pouvoir télécharger 24b /2-4, 
7 jours sur 7 ife centaines de h\ts pour simple prix d T une 
communication reléphoriique sur 3615 AMCHARGE. 
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Boutiques MICROMANIA 
Bénéficiez a Paris des prix 
MICROMANIA 



DEMENT ! 

Une nouvelle boutique 
MICROMANIA A PARIS 
ouverture en mars 

Forum des Halles 

5 rue Pirouette - Niveau — 2 

Métro et R.E.R. les Halles 



Printemps Haussmann 
64, bd Haussmann 
Espace Loisirs - Sous-sol 
75008 PARIS 
Métro Havre-Caumartin 
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Votre jeu chez vous dans 48 h* en téléphonant au 93. 42.57. 12 
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Ne 



■vous pas qu'il y a long- 



' temps que vous n'avez pas évolué 
dans un monde mystérieux et inquiétant 
qui se trouve au-delà du royaume de la 
magie ? 

C'est à cet endroit que se trouvent les "For- 
ces Noires" pouvant contrôler le di 
de tous ceux qui osent pénétrer dans la 
Maison delà Nuit. 

Et vous, Dwarf, faites partie de ces fous 
mais pour espérer 
vous en sortir 
(contrairement à 
ceux qui ont es- 
sayé avant vous) 
vous décidez d'ac- 
cepter le concours 
d'un oiseau qui est 
plus rapide que 
vous et qui répond 
au doux nom de 
Duck. 

En soi, le principe 
est très simple : le 
but est d'atteindre 
la Salle des Calculs 
mais 2 handicaps 
majeurs s'y oppo- 
sent ; d'une part, 
vous n'avez pas la 
clé et d'autre part, 
le plan que vous 
avez vous indique 
plusieurs salles de 
Calculs ce qui veut 
dire que ce sont 
des salles fantô- 
mes excepté une 
seule d'entre elles. 

Sachant cela, il ne vous reste plus qu'à 
trouver la clé ! hélas, les Forces Noires 
sont très rusées car elles ont éparpillé la 
clé en 10 morceaux, chaque morceau se 
trouvant dans un coffre. 

Mais, attention, là encore, il y a des cof- 
fres fantômes vides ! (Sinon, ce ne serait 
pas drôle...). 





Y'a plus qu'à !... sachant que les choses 
se présentent ainsi à l'écran : en haut l'ac- 
milieu le plan de la maison vous 
situant et situant le ou les fantômes qui 
sont là pour vous contrer et qu'il faut 
éviter à tout prix, et en bas le tableau des 
scores pour chaque personnage et le 
nombre de morceaux de clé récoltés. 

Par conséquent, en se repérant par rap- 
port au plan de la maison, il faut descen- 
dre grâce aux trous ou monter grâce aux 
portes tout en ti- 
rant sur les crânes, 
yeux ou autres 
bestioles qui vous 
pompent l'énergie 
et en s'éloignant 
autant que faire se 
peut des fantômes 
meurtriers... 

Enfin, dernier dé- 
tail important : à 
certains niveaux, 
on trouve de gros- 
ses boules qui 
peuvent être pro- 
jetées contre les 
parois élargissant 
ainsi le champ 
d'investigation... 

Edité par : 
Firebird 

Prix indicatif : 
Non communi- 
qué 



Le qualificatif glogal que l'on peut octroyer à Dynamic Duo tient en 2 mots : "C'est 
mignon !". En effet, les graphismes sont très colorés, l'animation est rapide et l'ac- 
tion garantie. Les non-initiés auront intérêt à changer en début de partie les para- 
mètres de difficulté de jeu et à choisir le niveau le plus facile sous peine d'avoir 
énormément de fil à retordre avec ces maudits fantômes. 



16 




^ Cela fait un an, un an que je m'en- 
^ traîne dans une seule optique : pren- 
dre le départ de cette course fabuleuse 
que tout pilote digne de ce nom rêve de 
courir au moins une fois dans sa vie. Vous 
avez bien sûr deviné qu'il s'agit des 24 
heures du Mans, course d'endurance par 
excellence aussi bien pour les pilotes que 
pour les machines. 

C'est donc avec une fébrilité non dissi- 
mulée que je me place sur la grille du 
départ ; 3, 2, 1 ... ça y est, c'est parti ! Dès 
que mon indicateur de vitesse atteint 70, 
je passe en vitesse supérieure ce qui me 
propulse rapidement à la vitesse de pointe 
de 215 et me permet par la même occa- 
sion de gratter toutes les voitures qui me 
devançaient avant que je n'entame mon 



premier virage à droite. Il ne faut surtout 
pas se laisser griser par la vitesse et ne 
jamais oublier que le circuit des 24 h du 
Mans est un des plus tortueux qui e 
tent et que, par conséquent, les \ ' 
sont toujours délicats à négocier. 
Croyez-en mon expérience quand, por- 
té par ma fougue de novice, j'ai abordé 
trop vite le 1er virage et que dans mes 
essais pour redresser la situation, j'ai ef- 
fectué un dérapage et atterri directement 
dans les panneaux qui bordent le circuit 
(quand ce ne sont pas des arbres). Pen- 
dant ce temps, le compte à rebours tourne 
inexorablement et c'est grâce au sans 
fautes de conduite qui suit que j'arrive à 
franchir le premier contrôle sur les 3 qu'il 
faut passer pour terminer un tour. Le 
deuxième tronçon se révèle technique 
mais faisable sans trop de problèmes à 
condition de ne pas percuter un autre 
concurrent... car ceci se solde par de 
magnifiques tonneaux et une perte non 
négligeable de temps. Quand, à force de 
persévérance je franchis le deuxième 



TOP 500000 T. ME U*> 139.8 
SCORE 0351B0 02. « **** ™> 




contrôle, je me rends compte que les deux 
tronçons précédents n'étaient rien face à 
celui-ci ! En effet, il est très, très sinueux, 
alors quand il faut contrôler la voiture et 
les agissements des autres concurrents, 
vous avez intérêt à démarrer ce tronçon 
avec 105 de bonus si vous voulez espé- 
rer le terminer !... Dans de bonnes con- 
ditions, vous entamez alors immédiate- 
ment le second tour... sachant que pour 
boucler le parcours vous en avez 4 à ef- 
fectuer. 

Edité par : Imagine 

Prix indicatif : K7, 99 F ; DK, 149 F 




Sans conteste, c'est une des 
meilleures simulations que 
nous ayons eues dans le genre 
depuis quelque temps. Mais 
les nostalgiques rassortiront 
toujours 3D Grand prix qui 
reste un classique hors pair. 
A noter quand même que si 
les graphismes et les couleurs 
sont un peu mornes, l'anima- 
tion de Wec le Mans vous in- 
cite à jouer d'autant plus que 
le circuit n'est pas très facile. 
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ET CIE 
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INITIEZ-VOUS A L'INFORMATIQUE DES"PROS" 

AVEC VOTRE 
AMSTRAD CPC 464/664/6128 




Grâce à un 
ouvrage exceptionnel 
de+ de 1200 pages 



LES 7 POINTS FORTS DE L'OUVRAGE 



UN GUIDE 
QUI VOUS ASSURE LA 
MAITRISE DES LANGAGES 
INFORMATIQUES 



I i ogo, Basic, Turbo Pascal \ 
— — — Assembleur sont les lan- 
gages les plus utilisés en micro- 
informatique, tant pédagogique 
que professionnelle Un cha 
pitre entier leur est consacre En 
le suivant point par point, vous 
serez rapidement capable de 
programmer vos applications 
De nombreux exemples, que 
vous pourrez essayer sur votre 
AMSTRAD, vous y aideront De 
plus, vous apprendrez la pro- 
grammation structurée qui vous 
donnera des réflexes de pro- 
grammeur professionnel 




TOUT SUR LES 
SYSTEMES D'EXPLOITATION 



I e CP/M est le système d'exploitation de 

_5? Inombreux micros, en particulier des CPC 

664 et 6128. L'essentiel des logiciels ont été 
crées autour de ce système. Notre guide vous 
permet de connaître les mots-clés du CP/M, et de 
son développement le CP/M PLUS, ainsi que ceux 
du AMSDOS, le DOS particulier d'AMSTRAD 



4 / CREEZ 
/ VOS PROPRES GRAPHIQUES 
ET VOS JEUX 

rr 



es fonctions graphiques de base de 
votre AMSTRAD vous sont déjà fa- 
milières Avec notre guide, vous pourrez 
déborder d'imagination et visualiser vos 
créations les plus folles Elles apparaîtront 
devant vous plus belles encore que vous ne 
l'auriez espéré En outre, vous pourrez créer 
vos propres jeux 1 



APPRENEZ A JONGLER AVEC LES LOGICIELS PROFESSIONNELS 



KÂ ultiplan et Dbase II font partie de la panoplie classique de l'utilisateur de micro. Aussi, notre 
"1 (ouvrage s'est-il attardé sur ces deux "monuments" I Multiplan, pour effectuer des calculs en 
séries, et Dbase II, pour gérer vos fichiers, n'auront plus de secret pour vous Mieux ! vous 
saurez les adapter à vos besoins. C'est bien pratique pour gérer votre budget familial ou pour opti- 
miser l'exploitation de votre carnet d'adresses 



VOTRE CADEAU GRATUIT : 
DURELL BIG 4 

U ne formidable compilation de 
4 jeux passionnants spécialement adaptés à 
votre CPC 464/664/6128. 
4 titres : 

• Combat lynx 

• Critical Mass 

• Turbo Esprit 

• Saboteur 

IMPORTANT 

Choisissez votre version : disquette ou cassette, sur le bon de commande 
au verso.' 
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PILOTEZ DES SYSTEMES 
AMUSANTS... 
OU TRES UTILES 

rôce aux nombreuses applications 
contenues dans notre ouvrage, 
vous pourrez transformer votre AMSTRAD 
en véritable centre de contrôle électroni 
que. Votre Minitel deviendra un terminal 
de communication intelligent ; mais vous 
pourrez encore réguler votre chauffage 
central, ou fabriquer un composeur auto- 
matique de numéros de téléphone., et 
bien d'outre* choses encore... 



DES COMPLEMENTS/MISES A JOUR 
PLEINS DE SURPRISES AGREABLES 



A vec notre ouvrage "Comment ex 
™ ploiter toutes les ressources et aug- 
menter les performances de votre AMSTRAD 
CPC 464/664/6128", vous bénéficiez en 
outre de notre service de mise à jour. Ce ser- 
vice, assure tous les 2 mois en principe, est 
constitué d'un envoi de près de 1 50 pages 
dans lesquelles vous vous plongerez avec la 
certitude d'y découvrir des nouveautés éton- 
nantes. 

Ce service complémentaire payant peut être 
interrompu sur simple demande ou en nous 
renvoyant tout complément/mise à jour sous 
1 5 jours (voir notre garantie ci-dessous). 



DOPEZ VOTRE AMSTRAD 
AVEC DES JEUX 
INEDITS 



\i ous disposez déjà de nombreux 

I Z. i jeux d'arcade . Mais notre guide 

en recèle de nombreux autres que vous 
aurez le plaisir de saisir au clavier de 
sauvegarder et de stocker sur vos mémoi- 
res, vous-même. Un plaisir à partager 
avec vos proches 




UN CONTACT DIRECT 
AVEC L'AUTEUR 



oîre système de carie- réponse vous 

maintient en contact permanent 

avec l'auteur Une question ? Ecrivez-lui 
sur une de nos cartes pré-adressées L'au- 
teur vous répond persormeHement, chez 
vous. Une suggestion ? Les auteurs la pren- 
dront en considération et pourront la 
développer dans les compléments 



AU SOMMAIRE : 
13 CHAPITRES CLAIRS ET PRATIQUES 



• Le système CPC 

carte contact-lecteurs "Ecrivez-nous" 

• Conception des cartes-mères des 
AMSTRAD CPC 464, 664 et 6128 

Les mémoires ROM et RAM 

• Systèmes d'exploitation des 664 et 6128 
Introduction au dos 

AMSDOS 
CP/M 2,2. 
CP/M + 

• Les langages du CPC 
Basic 

Assembleur 
Logo 

Turbo- Pascal 

La programmation structurée 

• Les graphiques 
Traces en basic 
TtiH de couleurs 
Les logiciels 

• Son 

Programmation en basic 
Programmation en assembleur 

• Les logiciels à caractère professionnel 
Multiplon 

Son organisation, les commandes, 
les fonctions, programmer sous Multiplon 
DboselL création de fichiers, gestion de 
fichiers, traitement de variables, création 
d'un masque de saisie 



• Périphériques 

Les connecteurs de l'AMSTRAD 
Module péritel pour TV couleur 
Imprimantes 
La souris AMX 

• Programmes 
Savoir programmer 

Moniteur : ossembleur/'desassembleur/ 
debugger 

Applications mathématiques 
Les utilitaires 
Programmes divers 

• Fabrication de circuits additionnels 

Connexion AMSTRAD/Minitel 
Connexion AMSTRAD/ Magnétophone à 
cassettes 

Commande circuits TTL r CMOS et 
de puissance 

Application en téléphonie 
Mémoires EPROM 

* Annexes 

Codes et caractères ASCII 
Le codage en hexadécimal 

* Maintenance 
Dépanner 

Maintenance des UC f des périphériques, 
des moniteurs 

* Notions scientifiques de base 

Introduction à l'électronique 
Electronique analogique 
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ADRESSES 



Récapitulatif dos adresses parues dans le n c 38 de CPC 
Kf dans les n & 27, 29 et 30 dAMSTAR & CPC 

AUGATOR . Claude LE MOULlEC- 83 rue dffltf Curie - 22420 
PLOUAPE ■ Tél. : 96.38.94 24 



AM'ATEOT 26, rue Dugommier - 75012 PARIS 

AMS NEWS : Cnnstoohe LEBRUN - Rue ds la Roquen© - 50000 
SAUVKO Té' : 33,05 ^5 13 



A M SON MAG : Arnaud GO DINE AU - 7, rue Dom Mocque- 
reau - 49280 LA TESSOUALE, Tel : 4 1 56.34 65 

AMSTRADEMENT VOTRE : Xavier RËNAJLT - B.P. 72 - 22500 
PAIMPQL Tél ; 96 2046 fil 



CRAZY CROC Gé'O'd '.AMOHE - P*èty - 71290 CUISEPV Têt 
35 51 .13.88 



CROC IDYLLE : JmtïMam HEN»?Y - La heuperie. - 50000 SA. NT- 
LG Te: : 33.05.34 76 



BLOODMAG 166 rue Raymond Dera<n - 59700 MA3CQ-EN- BA- 
ROEUL 



RUNSTRAD : 58 rue de la arrauefterie - 1 7ÛÛ0 LA ROCHELLE 



MICRO-BOY . 4 AhêQ Berny cTHouvllle - 93 190 LIVRY- GARGAN 



CROCO DINGO : Stéphane ^ÀCHINETTI - CtaPpote Stfj II Oi m* 
MA^^IN - Rue d'Escant^oup - 47200 MARMANDE 

L'ECHO DES MICROS Jean-Marc LECHAPTOS -44 bis. rue 
Monge- 92800 PUTE AUX TÔT (0 47.75.84 76 

LE STRAD : Qtles BARBET - 6, place Bouleau - 62126 WiMlLLE 

MAD-MAG ; Pascal ALBESOlA- Résidence des '-les - Les hauts 
des Sanguinaires - 20000 AJA.COO 

METRO BOULOT MICRO ; Rég\s MARRY- 10, rue de KkGUO 
kan-<?222Q Bagneux Tél (1)46 57 54 20 

MICR0MAG: Stéphane CARPE- 12 rue de Colmar- 59290 
WASQUEHAL 

MICRO MAG: A BORODINE-25 bis, 'g Madeleine - 45000 
ORLEANS, Tel 38 80.66,61 



ZOK NEWS : Thierry MO U RE AU D - 5 altôe Mme Colette - 44400 
REZE Tél 40 76 01 74 



AMSTRAD M ONTHLY Xavier RENAULT - BP 72 - 2 2500 P A1MPOL 
AM-GAMÉS 14. rue Mgr Benz'er Manon - 57 100 THIONVUE 



CROCOMAG : Luao^lc CARUZZO *ff U M La V»gne Mère - '3580 
LAZARE lESOlVIERS 
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NOM : 




Traceur de 
fonctions • 

TRI • 
METEO • 
CROQUE • 
MISSION • 
LISTING COULEUR 
SATAN I A • 



Code Pos*ai . 



> j Me: 



Disc CPC HS 14 

(pour l'achat ae ia disquette, nous Joignons gratuitement >o revvjô 

□ 140 F Non abonné □110 F Abonné 



REVUE HS 14 SEULE 

□ 15F 



Prénom _ 



Vîue 



Signature 



| ktero ta'r-g $r? 3} use a tes Ci-joir>t un tiïèQu* Hb&tà à iordr» Etes FtWisw SORAOOM. 

&ÊtovrftB2tefs)tuJiiûWs}ou un* photoctw* à ■ EWvn* SQff#GOM=- Lit H*<4 de Pan - 351 ?D B*UZ 
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82-84, bd des Botiqnolles - 75017 PARIS - Tél. (1) 42 93 24 58 




EXCEPTIONNEL! 

EPRISE DE 
VOTRE CPC 



POUR L'ACHAT 
PC 1512 






PRIX PUBLIC TTC 


AVEC REPRISE 
DE VOTRE 
CPC 464 
MONO 


AVEC REPRISE 
DE VOTRE 
CPC 464 
COULEUR 


AVEC REPRISE 
DE VOTRE 
CPC 6128 
MONO 


AVEC REPRISE 
DE VOTRE 
CPC 61 28 
COULEUR 


PC 1512 
SD MONO 


5325' 


4890' 


4890' 


4890' 


4790' 


PC 1512 
SD COUL 


7460 F 


659C 


5990' 


5990' 


5790' 


PC 1512 
DD MONO 


7104 F 


6190' 


5990' 


5990' 


5790' 


PC 1512 
DD COUl 


9238' 


8190' 


7690' 


7690' 


6990' 



OFFRE VALABLE JUSQU AU 31/03/89 

TELEPHONEZ-NOUS VITE ! 



(1)42 93 24 58 

ou passez nous voir... 




Quel possesseur de CPC ne maîtrisant pour seul langage que le BASIC 
n'a pas désiré créer ses propres jeux d'aventures ou de société ? 
L'AMSTRAD est certainement la machine qui, dans sa catégorie, 
dispose du BASIC le plus performant. Cependant, il ne permet ni le 
stockage ni l'affichage de pages-écrans et aucune commande n'autorise 
l'accès à la deuxième BANK du CPC 6128 ou la gestion de la mémoire écran. 
Tout programme de ce type à partir du BASIC est donc impossible. 
COMPACT peut faire cela et plus encore. 




Ire partie 



COMPACT, c'est avant tout un 
programme de compactage 
qui permet de réduire vos 
pages-écrans et vos fenêtres graphi- 
ques à des fichiers de 1 à 9 kilos oc- 
tets. 

COMPACT est doté de différentes 
fonctions d'aide à la programmation 
tel le catalogue de la disquette, une 
calculatrice, un module de conver- 
sion décimal/hexadécimal, un mo- 
dule de calcul d'adresse mémoire et 



de gestion des deux BANK, un module 
de calcul d'adresse écran ainsi que 
la possibilité de garder sur un fichier 
les caractéristiques des pages-écrans 
et fenêtres graphiques compactées. 

Mais cela ne suffirait pas à la créa- 
tion de jeux si COMPACT n'était ac- 
compagné d ' un jeu de commandes 
RSX. Ces commandes vont permet- 
tre de charger dans les deux BANK 
les fichiers créés par COMPACT, de 
les afficher et de les déplacer sur 



l'écran. De par leur rapidité d'affi- 
chage, ces commandes rendent 
possible une certaine forme d'anima- 
tion. A titre Indicatif, l'affichage d'une 
page-écran couleur et mode écran 
demande une moyenne de 35 dixiè- 
mes de seconde. 

L'utilisation de ces commandes ne 
nécessite aucune connaissance en 
assembleur, tout juste faut-il posséder 
quelques notions dans la structure de 
la mémoire, notions qui seront large- 
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ment supplées par la présence d'ai- 
des à la programmation contenues 
dans COMPACT. 

En conclusion, COMPACT est le com- 
plément Indispensable à votre éditeur 
ou à votre numériseur graphique. 

COMMENT UTILISER 
COMPACT ? 

• COMPACT travaille sur des 
pages-écrans sauvegardées par la 
commande SAVE «nompage», 
B.&C0O0,&4000 qui donne sur dis- 
quette un fichier binaire de 17 Ko. Les 
pages-écrans Issues d'un éditeur 
graphique devront être sauvegardées 
sous cette forme. 

Pour des besoins d'ergonomie le choix 
de la présentation s'est porté sur un 
menu simple, car en effet peu de 
possesseurs de CPC disposent de 
souris, les menus déroulants ont donc 
été proscrits. COMPACT se présente 
par une succession de menus où la 
sélection est faite par l'appui de la 
touche correspondant au numéro se 
trouvant avant l'option choisie. Il suf- 
fit de sélectionner une option et de 
répondre aux questions posées par le 
programme. 

MODE D'EMPLOI 

L'appui sur la barre ESPACE permet 
le changement des couleurs du pa- 
pier et du stylo suivant dix combinai- 
sons. 

COMPACTAGE BINAIRE 

Point fort de ce logiciel, cette com- 
mande réduit un morceau ou la to- 
talité de la page-écran à des fichiers 
réutilisables par les commandes RSX. 

Compactage de page-écran 

- Entrez le mode écran 

- Entrez le nom du fichier page 1 7 Ko 

- Entrez le nom du fichier nouvellement 
créé 

- Entrez deux couleurs pour chaque 
stylo 

(Ceci afin de permettre le clignote- 
ment des stylos). 

-SI vous avez des stylos de deux 
couleurs différentes, répondez oui à 
la question concernant la vitesse de 
clignotement des couleurs. 



- Si oui, réglez la vitesse (mode d'em- 
ploi à l'écran). 

- Appuyez sur une touche pour affi- 
cher la page-écran à compacter. 
-Appuyez sur une touche afin de 
débuter le compactage. 

Ceci afin de permettre de sauvegar- 
der la page-écran compactée sur 
une autre disquette, le compactage 
étant automatiquement suivi de la 
sauvegarde. 

Après le compactage, le programme 
affiche à l'écran les caractéristiques 
suivantes : mode écran, type de fichier 
(page-écran ou fenêtre graphique), 
nom du fichier, bénéfice par rapport 
à un fichier non compacté, adresse 
de début de la mémoire écran, 
adresse de fin de la mémoire écran, 
taille réelle du fichier en mémoire, taille 
du fichier sur la disquette, La possibili- 
té vous est offerte de sauvegarder les 
caractéristiques sur un fichier. 

- Désirez-vous sauvegarder les carac- 
téristiques sur le fichier «BIBLIOTEC» ? 

- SI oui, entrez un commentaire ou une 
remarque de votre choix. 

Pour plus de détail sur le fichier «BI- 
BLIOTEC», voir le paragraphe ARCHI- 
VES. 



Compactage de fenêtre graphique 

Deux possibilités se présentent à vous : 
vous connaissez les coordonnées 
graphiques de votre fenêtre ou vous 
les Ignorez. Si vous êtes dans le second 
cas, vous pouvez les déterminer en 
répondant oui à question : 

- Appel d'une page-écran pour dé- 
terminer les coordonnées ? 

- Entrez le nom de la page-écran 
source. 

- Est-ce une page-écran compactée 
ou une page 17 Ko ? 

SI la page-écran que vous désirez 
appeler n'est pas compactée, l'ordi- 
nateur vous posera la question sui- 
vante. 

- Entrez le mode écran 

SI vous connaissez les coordonnées de 
votre fenêtre, un tableau s'affichera 
sur votre écran. Il vous faudra entrer 



les coordonnées graphiques. Sinon 
lisez le mode d'emploi affiché à 
l'écran et appuyez sur une touche. 
A noter que le cadre permettant de 
déterminer les coordonnées ne se 
déplace pas de pixel en pixel mais 
d'octet en octet. 

- Entrez le nom du fichier nouvellement 
créé 

COMPACT permet de changer l'at- 
tribution des stylos. Ceci est très utile 
lorsque l'on veut accorder sur le même 
écran différentes fenêtres issues de 
pages-écrans différentes. 

- Désirez-vous changer les stylos ? 

- Appuyez sur une touche pour dé- 
buter le compactage. 

Les caractéristiques du fichier nouvel- 
lement créé s'affichent à l'écran, la 
posslblité vous est offerte de les sau- 
vegarder. 

- Désirez-vous sauvegarder les carac- 
téristiques sur le fichier «BIBLIOTEC» ? 

- Si oui, entrez un commentaire ou une 
remarque de votre choix. 

DECOMPACTAGE BTNAIRE 

Cette option a pour but de vérifier si 
le compactage s'est bien déroulé, 
cela sans sortir de COMPACT. L'affi- 
chage des fenêtres graphiques se fera 
dans les couleurs utilisées lors du der- 
nier compactage de page-écran ou 
par défaut dans les couleurs d'origine 
du programme. 

Décompactage de page-écran 

- Entrez le nom du fichier. 

Pour revenir au menu principal ap- 
puyez sur une touche. 

Décompactage de fenêtre graphi- 
que 

- Entrez le nom du fichier. 

- Entrez le mode écran. 

Pour revenir au menu principal, ap- 
puyez sur une touche. 

CATALOGUE 

Cette commande affiche le catalo- 
gue de la disquette ; pour revenir au 
menu principal, appuyez sur une tou- 
che. 
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ARCHIVES 



NETTOYAGE BASIC 



COMPACT vous offre la possibilité de 
sauvegarder les caractéristiques de 
vos pages-écrans et fenêtres graphi- 
ques sur un fichier appelé 
«BIBUOTEC.BIN». Ce fichier est auto- 
matiquement créé lors de la première 
sauvegarde. Cette option est très utile 
car elle permet de se constituer une 
bibliothèque de fichiers, avec un fi- 
chier «BIBLIOTEC» sur chaque face de 
vos disquettes. La capacité de «BIBLIO- 
TEC» est de 60 fichiers ce qui corres- 
pond à la capacité du catalogue 
d'une face de disquette 3" 1/2. 

Calculatrice 

Comme son nom l'Indique, c'est une 
calculatrice qui regroupe les quatre 
opérations. Le résultat vous est don- 
né en décimal et hexadécimal. 

- Entrez deux nombres et appuyez sur 
la touche correspondant à l'opéra- 
tion désirée. 

Conversion décimal/hexadécimal 

Comme son nom l'indique, cette 
option permet de convertir un nom- 
bre décimal en hexadécimal et vice 
versa. 

Calcul d'adresse écran 

Cette option permet la conversion des 
coordonnées physiques d ' un point en 
position à l'écran, exemple : X=0, 
Y=400 => (CONVERSION) => &C000. 
Ceci est très utile pour calculer la 
position d'une fenêtre à l'écran. 

Comme dans le compactage d'une 
fenêtre, deux solutions se présentent 
à vous, vous connaissez les coordon- 
nées ou vous ne les connaissez pas, 
en ce cas. la possibilité vous est of- 
ferte de les déterminer ; répondez oui 
à la question suivante. 

-Appel d'une page-écran pour 
déterminer les coordonnées à 
l'écran ? 

SI vous avez répondu oui . le pro- 
gramme vous posera les questions 
suivantes : 

- Nom de la page-écran. 

- Page-écran compactée oui ou 
non ? 

SI vous avez répondu oui. le pro- 
gramme vous demandera : 

- Entrez le mode écran. 



SI vous avez opté pour l'appel d'une 
page-écran, suivez le mode d'emploi 
affiché à l'écran sinon : 

- Entrez les coordonnées X et Y de 
votre point. 

Calcul d'adresse mémoire 

Cette option vous évitera de fastidieux 
calculs, car en effet elle permet de 
calculer les adresses de relogement 
pour vos fichiers, ceci dans les deux 
BANK. Pour cela il suffit de fixer une 
portion de mémoire située en BANK 
0 dans laquelle vous désirez loger vos 
fichiers. Puis entrez la taille de vos fi- 
chiers, taille qui peut être entrée en 
décimal ou en hexadécimal, le pro- 
gramme calculera automatiquement 
les adresses mémoire. En cas de 
débordement en BANK 0, le pro- 
gramme relogera les fichiers restants 
en BANK 1 . Si vous désirez loger vos 
fichiers uniquement en BANK 1 , il vous 
faudra fixer une tranche mémoire 
égale à zéro, c'est-à-dire donner les 
deux mêmes nombres pour les adres- 
ses supérieures et inférieures. 

L'accès à la BANK 1 étant soumis à 
certaines restrictions et les comman- 
des RSX étant situées à une certaine 
adresse en mémoire, il vous est forte- 
ment recommandé de vous reporter 
au RAPPEL SUR L'ORGANISATION DE 
LA RAM DESCPC. 

- Entrez l'adresse Inférieure. 

- Entrez l'adresse supérieure. 

- Entrez la taille de vos fichiers (maxi- 
mum 60 fichiers). 

Afin d'obtenir une efficacité maximale 
dans le calcul des adresses mémoire, 
il est préférable de rentrer les adres- 
ses dans un ordre décroissant. 

- Entrez un 0 pour sortir. 

Les adresses défilent à l'écran treize 
par treize, notez-les et appuyez sur une 
touche pour obtenir les autres. Sur la 
droite, une représentation des deux 
«BANK» vous montre la place occu- 
pée par vos fichiers. Pour finir, un ta- 
bleau apparaît vous Indiquant la 
place encore disponible en mémoire. 
A noter que le nombre donné pour 
la BANK 0 correspond uniquement à 
la place disponible dans la tranche 
que vous avez déterminée précédem- 
ment. 



Cette option est un plus à COMPACT ; 
en effet, ce programme permet d'ef- 
facer les blancs qui subsistent en bout 
de lignes de vos programmes BASIC 
ainsi que l'instruction REM, que ce soit 
sous sa forme entière ou abrégée (*). 
Ceci dans le but évident de grapiller 
quelques octets. Seule restriction à son 
efficacité : les REM en bout de lignes 
ne seront pas effacés. 

ATTENTION, Il est nécessaire que la 
disquette contenant le programme 
BASIC à «nettoyer» dispose d'une 
place supérieure à la taille du pro- 
gramme. 

- Introduisez la disquette contenant 
COMPA CT et appuyez sur une touche. 

- Introduisez la disquette contenant 
le programme BASIC à nettoyer et 
appuyez sur une touche. 

- Entrez le nom de votre programme. 

- Appuyez sur F2. 

- Sélectionner une option. 

- Entrez un nom pour votre pro- 
gramme. 

- Désirez-vous effacer l'ancien pro- 
gramme ? 

- Si oui. rappelez son nom. 

- Appuyez sur F2. 

Votre programme est sauvegardé. Si 
vous voulez retourner à COMPACT, 
provoquez un RESET et rechargez le 
programme. 



Eric CINGET 




GAGNER AU LOTO 

un rêve qui peut devenir 
réalité avec 

LOTO - MATIC 

le programme qui vous révèle 
tout ce que vous devez savoir 

• trouver facilement les numéros 
qui ont le plus de chance de sortir 
• établir scientifiquement 
les grilles les plus performantes 
grâce aux tests du Lotoscope 
• contrôler sans peine 
les résultats de vos jeux 
Editions écran et imprimante 

Documentation détaillée 
+ CADEAU contre 4 timbres 
INFORMATIC Applications 
B.P. 78- 67800 BISCHHEIM 
Tél. 88.33.58.85 
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COMPACT 



10 REM ================«=«=«= >AB 

20 REM == >YC 

30 REM • COMPACT i >Q« 

40 REM - >TE 

50 REH coapacteur d'itages - >QH 

60 REM == t* >YG 

70 REM == par Eric CINGET « >UP 

80 REM == ?? >YJ 

90 REM » 1988 >FK 

100 REM == ;DF 

110 REM : ::=^=r:::=:= ; ^^: = = = )BC 

120 REM >TK 



130 MEMORY t<74FF:U)AD"co*pa.bin":CALL tA0B0:POKE U0D6, >KQ 
l-.CALL J t A094,J.7500,l«25AO:inO(nn>=l:inl(nn)=26:DIM pe(16 
),pei(16),st(16),fIc»(60):iQ=0:ben=0:tŒY DEF U,1:KEY D 
EF 14,1:KEY DEF 4,1:KEY DEF 2O,l:REST0RE 1830:F0R i=0 T 

0 9:READ a, b: inû( i ) =a: inl ( i >=b:NEIT 

140 il=tC000:a=0:i2=l<FFFFi«3=80:i3»=":«U="":i2»=":no >VK 

■l=":notl*= ,, :a»-" , :aa» ::,, :bb$=" , :3a=0:ec=0:a=0 

ISO stl=0:adr=t7500:REST0RE 1820:F0R 1=0 TO 15: READ a:p >IB 

e(l)=a:pel(l)=a:NEXT:b4l="Mode écran /0/1/2/ => ":b5*=" 

Moi de la page écran a compacter => ":d7M"Nm de la no 

uvel page écran -> a :b2t-"Page écran coipactee /0/N7": 

bl8*="Entrez le prealer noibre =>* 

160 era-0:b3$="Entrez le deuiieie noibre -> ":b8*=*Appe >BT 

1 d'une page écran afin de deteriinez les coordonnées / 
0/N/":b9*="Noi de la page écran source =) ":bll*="Coule 
ur 1 du stylo N ":bl6*="Couleur 2 du stylo N VON ERROR 

GOTO 1690 

170 bl9l="Desirez vous changer les stylo /0/N/":bl3$="N )TF 
oi du nouveau fichier => ":bl4$="No« de la page écran = 
> ":bl5*="Couleur nuierot 1 du bord de l'écran => ": 
bl7*-"Couleur nuierot 2 du bord de l'écran => *:b6t- 
"Coor données horizontales (X) -> * 

1B0 bl2*="Coordonnees verticales (Y) => ":blO*="Adresse >LG 
inférieur => ":blt="Adresse supérieur => ":b20» :: "Entre 
z la taille du fichier M , :bo=0:bol=0:vlt=l:wl=10:v2=10: 
cc^sup**"":^^"" 

190 PEN 0 : PB I NT FREf") :H0DE 2:INK 0, inO(nn) : INK l,inl( >LY 
nn): BORDER inO(nn):0RIGIN 0,0,6, 632,390, 374:GRAPHICS PE 
N 0:CLG 1:TAG:M0VE 128, 388, 0, 0 : PB I KT 'H l l I i 
COMPACT mu »"; :TAG0FF :0RIG1N 0,0,0,6 

40,0,400:1F ben<0 THEN ben=0 

200 WINDOU 8,73,8,22:PAPER 0:PEN 1 :CLS:WIHDOVtl, 8, 73, 5, >HZ 
5:H0VE 0,396, 1 : DRAW 638, 396: DRAW 638,368:DRAU 0,368:DRA 
V 0,396:H0VE 50,44:DRAW 590,44:DRAU 590,294:DRAU 50,294 
:DRAV 50,44:H0VE 50,310:DRAU 59Û,310:DBAW 590,344:DRAU 
50,344:DRAW 50,310:H0VE 54,42 

210 DRAW 591,42:DRAW 591,290:H0VE 592,42:DRAy 592,290:H >TG 
OVE 593,42:DRAW 593,290:HOVE 54,308:DRAV 591, 308: DRAW 5 
91,340:H0VE S92,30B:DRAV 592,340:N0VE 593,308:DRAU 593, 
340 

220 CALL fcAÛ94, 17500, 125A0:GRAPHICS PAPER 0: IF saM THE >GH 
N sa=0:G0T0 970 ELSE PAPERI 1,0: PENH, 1:CLSI1: 1F cc=l TH 
EN 280 ELSE IF ccc=i THEN RETURN 



230 TAG:M0VE 257,334, 1:PB1NT" MENU PRINCIPAL ";:TAG0FF: >HD 
LOCATE 6,3:PRINT"- 1 - COMPACTAGE BINA IRE": LOCATE 6,5: 
PRINT"- 2 - DECOHPACTAGE BINAIRE 1 : LOCATE 6,7:PRINT"- 3 

- CATALOGUE DE LA DISQUETTE": LOCATE 6,9:PRINT"- 4 - 
ARCHIVES" 

240 LOCATE 6,U:PR1NT"- 5 - OPERAT IONS": LOCATE 6,13:PR >PH 
INT"- 6 - NETTOYAGE BASIC" 

250 a*=":CLEAR INPUT:VHILE N0T(a$="l" OR a*="2" OR &t- >AB 
"3" OR a*="4" OR a$=»5" OR a$="6" OR a$=" "):a$ s INKEYÎ: 
VEND 

260 IF a$=" " THEN nn=nn+l:UHILE nn=10:nn=0:yEND:INK 0, >PU 
inO(nn):INK 1, inl(nn) : BORDER in0(nn):G0T0 250 
270 CLS:CLSI1:IF a»="2" THEN 910 ELSE IF a*="3" THEN TA >TQ 
G:M0VE 283,334:PRINT"CATAL0GUE";:TAG0FF:CAT:CLEAR INPUT 
:CALL tBB06:G0T0 190 ELSE IF a$=*4* THEN 1130 ELSE IF a 
t="5» THEN 1250 ELSE 1F a$="6" THEN 1840 
280 MOVE 140,2:DRAW 498,2:DRAU 498,26:DSAU 140,26:DRAV >PF 
14O,2:H0VE 142,0:DRAU 499,0:DRAU 499,22:HOVE 5OO,0:DRAU 
5OO,22:H0VE 501,0:DRAU 5Ol,22:H0VE 266,2:DRAW 266,26:H 
OVE 270,2:DRA« 270,26:M0VE 306,2:DRAW 306,26:M0VE 376,2 
: DRAW 376, 26: MOVE 380,2 

290 DRAU 380,26:H0VE 448,2:DRAU 448,26:M0VE 190,2:DRAU >EK 
190,26:GRAPHICS PAPER 0:TAG:H0VE 146,20:PRINT"DEBUT";:M 
OVE 276,20:PRINT"FIN";:M0VE 386,20:PRINT"LARGEUR"; :TAG0 - 
FF 

300 IF cc=l THEN RETURN >RH 
310 TAG:M0VE 250,334:PRlNT"COr1PACTAGE BINAIRE"; :TAG0FF: >QV 
LOCATE 4, 3: PRINT"- 1 - COMPACTAGE DE PAGE ECRAN" :L0CAT 
E 4,6:PRINT"- 2 - COMPACTAGE DE FENETRE GRAPHIQUE" :LOC 
ATE 4,9:PRINT"- 3 - RETOUR MENU PRlNCIPAL":a*=" 
320 CLEAR INPUT:«HILE NOT(a*="l" OR a»="2" OR a*="3"):a >GY 
$=INKEY$:«END:CLS:CLSI1:IF a*="2" THEN 470 ELSE IF al=" 
3" THEN 190 ELSE TAG:MOVE 232,334:PR1NT"C0HPACTAGE DE P 
AGE ECRAN"; :TAGOFF 

330 xl=JfCOOO:il*="cOO0":x2=liFFFF:x2«="ffff":TAG:M0VE 20 >QD 
6,20:PRINT"tC000";:M0VE 320, 20 : PB I NT-fcFFFF" ; : HOVE 462,2 
0 : PR I NT*i50" ; : T AGOFF : LOCATE 4,2:PR1NT b4$:L0CATE 4,4:PR 
INT bSI:LOCATE 4,6:PR1NT b7) 

340 LOCATE 4,2:PRINT" ";b4*;: INPUT ",ao:lF ao<0 OR io> >HR 
2 THEN PRINT" ":GOT0 340 ELSE LOCATE 4,2:PRINT " ";b4$: 
LOCATE 4,4:PRINT" ";b5$;: INPUT "*,noa*: LOCATE 4,4:PRINT 
" ";b5l:L0CATE 4,6:PRINT" ";b7*;:lNPUT ",noa II: LOCATE 
4,6:PR1NT« ";b7* 

350 CLS: IF ao=0 THEN ae=15 ELSE IF aoM THEN ae=3 ELSE >BL 

K=l 

360 y=-l:FOR i=0 TO ae:y=yU: LOCATE 4,l*(y«2):PRINT" "; >QU 
bll»;l;: INPUT " => ",pe(i):LOCATE 4,l+(y»2):PRINT" ";b 
U»;i:y=yU:LOCATE 4, l+(y»2);PRlNT" ";bl6*;i;:INPUT ■ = 
> ",pel(i):LOCATE 4,l+(yi2):PRINT" ";bl6$;i:IF y=7 THE 
N CLS:y=-l 

370 1F pe(i)>26 OR pe(i><0 OR pel(i»26 OR pelfiXO THE >HN 
N ERROR 100 ELSE IF pe(i)Opel(i) THEN pee=pe(i):peel=p 
ei(I) 

380 NEIT i:CLS:LOCATE 4,2:PRINT" ";bl5*; : INPUT "",bo:LO >GC 
CATE 4,2:PRINT" • ;bl5*:L0CATE 4,4:PRINT" " ;bl7»; : INPUT 
"",bol:IF boObol THEN pee=bo:peel=boi 
390 LOCATE 4,4:PRINT" ";bi7*:L0CATE 4,6:PRINT* Desirez >KF 
vous deteriiner la vitesse de clignotement des ":LOCATE 
4,8:PRINT"couleurs /0/N/":al=":VHILE NOT(a»^0' OR a$ 
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=-N") :a$=UPPER*( INKEY») :UEND:PRIHT W ":CLS: IF a*="N" THE 
N ec=l:GOTO 460 

400 LOCATE 2,1:PRINT«- POUR AUGMENTER LA VITESSE DE CLI >U8 
GNOTEMENT DE LA COULEUfi NI APPUYEZ SUR <i> POUR 

DIMINUER APPUYEZ SUR <2>" 

410 LOCATE 2,4:PR1NT*- POUR AUGMENTER LA VITESSE DE CLI >UD 
GNOTEMENT DE LA COULEUR N2 APPUYEZ SUR <9> POUR 

DIMINUES APPUYEZ SUR <0>* 

420 LOCATE 2,8:PRINT*- POUR SORTIR APPUYEZ SUR <ESPACE> >UA 
*:LOCATE 2,U:PRINT*Vitesse de la couleur ni en Sû/ieie 
de secondes => 10*:L0CATE 2, 13: PB I MT'Vi tesse de la co 
uleur n2 en 50/ieie de secondes O 10": BORDES pee.peel 
:vi=10:v2=10 

■ 430 SPEED INK vl,v2:a*=INKEY«: 1F in»="l" THEN vl=vi+l EL >RD 
SE IF a*=*2* THEN vl=vl-l ELSE IF a»=*9* THEN v2=v2U E 
LSE IF a»=*0* THEN v2=v2~l ELSE IF a*=* * THEN BORDER i 
nO(nn):ec=l:GOT0 460 

440 1F vl=0 THEN vl=l ELSE IF vl=256 THEN vl=255 ELSE I >ZK 

F v2=256 THEN v2=255 ELSE IF v2=0 THEN v2=l 

450 LOCATE 52,11:PRINT vhLOCATE 52, 13:P8IHT v2:G0T0 43 >BP 

0 

460 GOTO 800 >ZE 
470 TAG:HOVE 202,334:PRINT*C0KPACTAGE DE FENETRE GRAPHI >KZ 
QUE"; :TAGOFF: LOCATE 2.6:PRINT* »;b8«:a*=":WHILE NOT(a» 
="0* OR a$=*N") :a*=UPPER*( INKEYI) :UEND:PRINT" ":CLS:IF 
al=*N" THEN cc=0 ELSE cc=l 

480 LOCATE 4,2:PRINT* *;b9»; : INPUT«\noil:LOCATE 4,2:PR >XU 
1NT ■ *;b9$:L0CATE 4.4:PBINT- ";b2»:aal=":WHILE NOT(aa 
$=*N* OR aa»=»0 , ):aa»=UPPERI(lNKEY»):WEND:LOCATE 4,4:PR 
(HT" ";b2»:IF aa*="0" AND cc=0 THEN 680 ELSE IF aa*="0* 
THEN 600 

490 LOCATE 4,6:PR1NT" ";b4$;* ";: IMPUT ",«o:IF io<0 OR >AM 
■o>2 THEN 490 ELSE LOCATE 4,6:PRINT b4*:lF cc=0 THEN 6 
80 

500 CLS:L0CATE 25,2:PR1NT*M0DE D' EMPLOI ":LOCATE 3,5:PR1 >NG 
NT*- DEPLCAMENT DU CADRE : Touches de déplacement du eu 
rseur* 

S10 LOCATE 3,7:PRINT'- AGRANDISSEMENT DU CADRE : horizo >BQ 
ntal => F4 i vertical => F2 ": LOCATE 3,9:PRINT*- RETBEC 
ISSEHENT DU CADRE : horizontal => F6 ! vertical => F8 ' 
: LOCATE 3, 11:PRINT»- VALIDATION DE LA POSITION ET RETOU 
R : < espase >" 

520 LOCATE 9,14:PR1NT*< INTRODUISEZ UNE D1SQETTE ET PRE )XG 
SSEZ UNE TOUCHE >*:CALL tBB06:PEN 0: IF aa*=*0* THEN LOA 
D noat , 17500 : ! PAGE, 17500 , 0 : CALL fc9B56:io=PEEK(t(9B56) :P0 
KE &9B56,0 

530 IF io=0 THEN ie=15 ELSE IF io=l THEN te=3 ELSE m=1 >yP 

540 IF aa»="0* THEN 550 ELSE MODE io:FOR j=0 TO k:INK >VG 
j,pe<j),pel(j):NEXT 1: BORDER bo,bol:LOAD noi*,!iC000 
550 PEN 1:CLEAR INPUT:SPEED KEY t, l:dx=0:dy=0:xx=223:xi >EE 
1 =329 : yy= 150 :yy 1=250 

560 MOVE ïïtdi,yy+dy,l,l:DRAW xxl*dx.yy*<iy:DRAy xxl+dx, >IW 
yyl+dy:DRAW u+di,yyl+dy:DRAW ix+dx,yy+dy:a«=**:CALL tB 
B06 

570 MOVE utdi,yY*dy,l,l:DRAU xxi+dx,yy+dy:DRAy Ml+di, >QV 

yyl+dy:DRAW ix+dx,yyl+dy:DRAy n+dx,yy+dy 

580 IF INKEY(DO-l THEN dx=dx+4 >ZE 



590 IF INKEY(8)<>-1 THEN dx=dx-4 >ZQ 

600 IF INKEY(2)<>-1 THEN dy=dy-2 >ZA 

610 IF INKEY(0)<>-1 THEN dy=dy+2 >ZI 

620 IF INKEY(4K>-1 THEN xx=xx+4 >AM 

630 1F INKEY(20)<>-1 THEN xx=xx-4 >AZ 

640 1F INKEY(11K>-1 THEN yy=yy*2 >AA 

650 IF 1NKEY(14)<>-1 THEN yy=yy-2 >AG 
660 IF INKEY(47)<>-1 THEN MOVE 0,0,l,OîHODE 2:dc=(xxi-4 >Z« 

) +dx : gc= (xx+4) +dx : hc=< yy 1-1 )+dy : bc= (yy+3) +dy : SPEED KEY 
3O,2:G0SUB 190:G0T0 740 

670 GOTO 560 >AA 



680 LOCATE 7,9:PRINT'C00RDONNEES GRAPHIQUES DROITE GA >UK 
UCHE HAUT BAS":NOVE 96,124:DRAU 544,124:DRAU 544, 
170:DRAU 96,170:D8AU 96,124:H0VE 544,170:DRAV 544,80:DR 
AU 288,60:DRAy 288,170:H0VE 352,80:DKAV 352,170:H0VE 41 
6,80:DRAU 416, 170: MOVE 480,80 

690 DRAU 480,170:M0VE 100,123:DRAy 288,123:M0VE 292,79: >U 
DRAU 545,79:DRAU 545, 168: DRAW 546,79:DfiAV 546,168:DRAV 
547,79:DRAy 547,168 

700 LOCATE 31,9:PRINT* DROITE*: LOCATE 33,12:INPUT «*,dc >CG 
: LOCATE 31,9:PRINT* DROITE": LOCATE 39,9:PilNT* GAUCHE*: 
LOCATE 41,12:INPUT * , ,gc:LOCATE 39,9:PRINT* GAUCHE*:LOC 
ATE 48,9:PRINT* HAUT": LOCATE 49,12:1NPUT **,hc:LOCATE 4 
8,9 

710 PRINT" HAUT": LOCATE 57,9:PRINT" BAS": LOCATE 57,12:1 >RI 
NPUT "«,bc:LOCATE 57,9:PR1NT" BAS*:dc=dc-l:gc=gcU:GOTO 
740 

720 IF fl<=0.0625 THEN f3=0 ELSE IF fl<=0. 1875 THEN f3= >WP 

1 ELSE IF f 1<=0.3125 THEN 13=2 ELSE IF fl<=0.4375 THEN 

f3=3 ELSE IF fl<=0.5625 THEN f3=4 ELSE IF fl<=0.6875 TH 

EN f3=5 ELSE IF fl<=0.8125 THEN f3=6 ELSE 13=7 

730 RETURN >ZF 

740 fl=((400-hc)/16):f2=FIX(fl):fl=fl-f2:GOSUB 720:xl*= >EU 

HEX*(49152t(f2«80)+(f3«2048)+FIÏ(gc/8)):fl=((400-hc)/t6 

):f2=FlX«fl):fl=ll-f2:G0SUB 720:i2*=KEX$(49152+(f2»80)+ 

(f3i2048)iFII(dc/8)):x3*=HEXI(FII((VAL(*î 1 "*x2»>)-(VALC 

&"txl»)))+l) 

750 fl=((400-bc)/16):f2=FIX(fl):fl=fl-f2:G0SUB 720:x2»= >HV 

HEI»(49152+(f2*80)+(f3«2048)+FIX(dc/8)):CLS:xl=VALCI<"+ 

xl»):x2=VAL(*a"+x2*):x3=(VAL(*&"*x3$)) 

760 TAG:MOVE 206,20:PRINT "l*;xl»;:HOVE 320,20:PRINT "t m 

";x2*;:H0VE 462,20:PRINT "t";x3»;" ";:MOVE 202,334:PRIN 

T "COMPACTAGE DE FENETRE GRAPHIQUE"; :TAG0FF 

770 LOCATE 4,4:PRINT bi9»:L0CATE 4,2:PRINT" -;bl3*; : 1HP >ZT 

UT ",noil»: LOCATE 4,2:PRINT* ";bl3$:L0CATE 4,4:PRINT* 

*;bl9*;" ":a»="":yHlLE NOT(a$="0" OR a$=*N*):a*=UPPER»( 

1NKEY* ) iWEND: IF a$=*N* THEN 800 ELSE IF cc=0 THEN K=15 

780 CLS:y=0:FOR 1=0 TO ie:y=y+2: LOCATE 4,y:PRINT" ";"Ec >TH 
hange stylo N";l;"avec stylo N => "; : INPUT "",st(i):LOC 
ATE 4,y:PRlNT" "{"Echange stylo N";i;"avec stylo N => * 
:IF y=14 THEN y=0:CLS 

790 IF st(l)>15 OR st(i)<0 THEN ERROR 100 ELSE NEITîCLS >FU 
:stl=l 

800 CLS: LOCATE B.3:PR1NT"APRES AFFICHAGE DE VOTRE PAGE >EA 
ECRAN APPUYEZ SUR UNE": LOCATE 15,5:PRINT"T0UCHE POUR CO 
MMENCER LE COMPACTAGE* : LOCATE 2t. 7: PRINT" (APPUYEZ SUR U 
NE TOUCHE)" :CLEAR 1NPUT:CALL tBB06:lF ec=i THEN aa«="N* 
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810 vIt=l:cc=0:IF uM"M« THEN aa*="":M0DE ioîPEN 0:L0A >HT 
D noi*,l(C000:PEN 1:F0R 1=0 T0 ie:INK i,pe(i),pel(i):NEI 
T 1: BORDER bo.bol 

820 IF aa»="0" THEN PEN 0:L0AD noaJ , 47500 : i PAGE, 17500 , 0 >EQ 
:PEN 1 

830 aa*="":IF stl=l THEN sti=0:CALL 19B7F, (bc-10), (gc-1 >W 

0) ,(hc+10),(dctl0),st<0),st(l),st(2),st(3),st(4),st<5), 
st(6),st(7),st(8),st(9),st(t0),st(ll),st(12) ) st(13).3t( 
U),st(15) 

840 POKE l<9B38,0:CALL &9B38 , v 1 1 : a=PEEK ( &9B38 ) : I F a=vlt >FA 
THEN vlt=vltti:GOT0 840 

850 CALL iA094,«.7500,i25A0:CLEAR INPUTilF ec=i THEN ec= >KB 
0:GOTO 880 

860 CALL &BB06:adr=i7500:POKE adr,103:P0KE adr+l,49:P0K >TQ 
E adM2,201:P0KE adr+3,217:P0KE adr+4,vlt:P0KE adr+5,i3 
:ad$=MID»(ïl*,3.2):P0KE adr+8, VAL( "&'»ad») :ad$=MID*<»(l* 
,1,2):P0KE adr+9,VAL("fc"+adl> 
-870 CALL l9FlE,i3,)[l,x2,(adr+6),(adr+9),vlt:ad2*.=(HEH( >VU 
PEEK(adr+7) , 2) ) + (HEX$ (PEEXtadr *6) , 2) ) :ad2*=HEÏ*( ( VALCfc 
"+ad2$))+14,4):SAVE noit*,b,adr,VAL("i"+ad2«):sa=i:ty=0 
:adrl=adr:ben=((<hc-bc)/2)«ï3MVAL("t"+ad2»)):G0TO 190 

880 CALL &BB06:adr=l 1 7500:adrl=adr:POKE adr, 103:adr=adr+ >LT 
1:PÛKE adr,49:adr=adr+l:P0KE adr,201:adr=adr+l:P0KE adr 
,l26:adr=adr+l:P0KE adr,vlt:adr=adr+l:adr2=adr:adr=adr+ 
2:POKE adr,™ 

890 FOR 1=0 TO ie:ll=ie-l:adr=adr+l:POKE adr,pe(il):adr >JF 
=adr+l:P0KE adr,pel(il):NEXT:adr=adr+l:POKE adr,bo:adr= 
adrtl:POKE adr,bol:adr=adrU:POKE adr,vl:adr=adrU:POKE 
adr,v2:CALL &9DE8,adr2,adr,vlt 

900 ad$=HEI»(PEFJC(adr2),2):adl$=HEH(PEEK(adr2+l),2):ad >DH 
2»=adl*+adl:a=(VAL("l( , +ad2*)+( (ie+l)i2)U2) :SAVE noil», 
b,adrl,a:sa=l:ty=l:ad2»=HEI*(a,4):ben=16384-(VAL("lt"+ad 
2»)):G0T0 190 . 

910 TAG:H0VE 242,334:PRINT"DEC0MPACTAGE BINAIRE"; :TAGOF >JG 
F: LOCATE 4,3:PR1NT"- 1 - DECOHPACTAGE DE PAGE ECRAN" :L 
OCATE 4,6:PRINT"- 2 - DECOHPACTAGE DE FENETRE GRAPHIQU 
E":LOCATE 4,9:PRINT"- 3 - RETOUR HENU PRINClPAL":a$=" 

920 l/HILE NOT(a»='l" OR a*="2" OS at=*3") :a$=[NKEY$:UEN >HT 
D:CLS:CLSI1:IF a*="2" THEN 940 ELSE IF a$="3" THEN 190 
ELSE TAG:HOVE 218,334:PRINT"DEC0HPACTAGE DE PAGE ECRAN* 
; : TAGOFF 

930 LOCATE 4,2:PÎIHT« ";b9*;:INPUT "\noi*:PRINT" ":PEN >ï"F 
0:LOAD noi*,fc7500:H0DE 2:L0CATE 19,11:PEN 1: !PAGE,!t750 
0,0:CLEAR INPUT:CALL &BB06:G0T0 190 

940 TAG:HOVE 232,334:PRINT"DEC0HPACTAGE DE FENETRE"; : TA >HI 
GOFF: LOCATE 4,2:PRINT»Noi de la fenêtre => »:LOCATE 4,4 
:PRINT b4*:L0CATE 4,2:PRINT" Noi de la fenêtre => ";:IN 
PUT ",noil:LOCATE 4,2:PRINT" Hoi de la fenêtre => " 
950 LOCATE 4 f 4:PRiNT» »;b4$;:INPUT "",io:IF «o<0 OR ■£>> >RU 
2 THEN PRINT" ":GOT0 950 ELSE LOCATE 4,4:PRINT" ";b4l:l 
F m=0 THEN K=15 ELSE IF io=l THEN «=3 ELSE m=1 
960 PEN 0:LOAD no«*.I<7500:PEN 1:F0R 1=0 TO ie:INK i,pe( >UZ 

1) ,pel(l):NBrr:BORDER bo,bol:BODE io:LOCATE 6,11:!FENET 
RE, 0, 1.7500, 0:CLEAR INPUTîCALL fcBB06:GOTO 190 

970 TAG:HOVE 285, 334:PR1NT" ARCHIVES"; :TAG0FF:L0CATE 2,1 >ZU 
:PRINT"NOM :":LOCATE 2,3:PRlNT"TlfPE :*:LOCATE 2,5:PRINT 
"COMMENTAIRES :":LOCATE 40, 1:PRINT"H0DE :":LOCATE 40,3: 
30 



PRINT'BENEFICE :• 

980 HOVE 150,196:DRAV 490,196:DRAV 490,84:DRAW 150,84:D >trtl 
BAW 150,196:N0VE 154,83:DRAU 491,83:DRAU 491,193:H0VE 4 
92,83:DRAU 492, 193:H0VE 493,83:DRAW 4fl3,193:H0VE 150,11 
3:DRAU 490,113:N0VE 150,14O:DRAU 490, 140:HOVE 150,167:D 
RAW 490,167:H0VE 150,170 

990 DRAU 490,170:M0VE 232,196:DRA« 232,S4:H0VE 235,196: >QD 
DRAW 235,84:N0VE 320, 196: DRAW 320,84:H0VE 405, 196: DRAW 
405,84:H0VE 490,196:DRAU 490,84:M0VE 150,196:DRAU 235,1 
70 

-4000 TAG: GRAPHICS PAPER 0:MOVE 168,158,1:PR1NT"DEBUT";: >Z« 
MOVE 168,130:PRINT"FIN";:HOVE 168, IOAîPRINT'TAILLE"; :H0 
VE 260,190:PRINT"HEIA.";:M0VE 336,190:PRINT"DECIHAL";:H 
OVE 434,190:PRINT"K.0";:TAG0FF:IF bi=l THEN 1180 
1010 LOCATE 8,1:PRINT LIPPES* ( noilt ) : LOCATE 46,1:PRINT ■ >ZJ 
osLOCATE 50,3:PRINT C I NT ( ben ) ; "OCTETS" : LOCATE 9,3:1F ty 
=0 THEN PRINT" FENETRE GRAPHIQUE" ELSE PRINTPAGE ECRAN" 
1020 TAG:MOVE 256,158:PR1NT "J.";HEI*<il);:HOVE 336,158: >HV 
PRINT xl;:HOVE 256, 132:PRINT "fc";HEX*.(VALC8."+i2»));:r10 
VE 336.132.-PRINT (VAL("t"+»2»));:N0VE 256,104:PRINT "le" 
;HEI»(VAL(Mt"+ad2»),4);:H0VE 336,104:PRINT VAL('"l,»+ad2> 
);:a»=STR»(VAL("l"*ad2»)) 

1030 MOVE 420,158:PRINT "IXXIIXX"; :MOVE 420,132:PRINT " >VM 
XXIHXX";:IF LEN(a$)>4 THEN M=LEFTXa»,2) :a=VAL(blM 
ELSE a=l 

1040 MOVE 434,104:PRINT a; -.TAGOFF: LOCATE 2, 15:PRINT"Sau >BZ 

vegarde sur le fichier BIBIOTHEQUE /0/N/":a*=":WHILE N 

0T(a»="0" OR a$="N"):a»=UPPER$(INKEY»):WEND:IF al="N" T 

HEN 190 ELSE LOCATE 2,5:PRINT" COMMENTAIRES :"; 

1050 PRINT STRING*(48,32);" ": LOCATE 16,5:INPUT ",b»:W >VH 

INDOW 79,80,24, 24:CLS:PEN 0:CALL «094,17500,1,2540 

1060 PEN 0:LOAD "biblotec.bin", 1,8000:PEN 1 >NF 

1070 FOR 1=0 TO 3840 STEP 64:a=PEEK(lt8000+i) : IF a=0 OR >CF 

a=207 THEN 1080 ELSE NEXT i 

1080 noil$=UPPER*(noil$):FOR j=l TO 6:a«=HID$(UPPER$(no >WK 
■U),j,l):IF a*=" THEN a»=CHR$(32) 
-1090 POKE l<8000+i + (j-l),ASC(a»):NEIT i : POKE î.8000+i+8,t >GL 
y:adH=MID*(xl$,l,2):ad4$=MlD*(xl»,3,2):P0KE i.8000+1+9, 
VAL("&"+adl*):PÛKE î.8000+i + 10,VAL("l.»+ad4»):ad4»=HID*<i 
2*,3,2>:adl*=MID»<*2*,l,2):P0KE 48000+ i + ll,VAL("îi"+adll 
):POKE 18000+1+12, VAL("t«+ad4*) 

1100 POKE l8000+i+13,io:ad4»=MID*(ad2»,3,2):adl*=MID$(a >RC 
d2*,l,2):P0KE 1.8000+1+14, VAL("î."+adl») :POKE 1,8000+1+15, 
VAL("l,"+ad4*):F0R h=l TO 48:a*=MIDt(b$,h,l):IF a*=" TH 
EN a»=CHR»(32) 

1110 POKE fc8000+i+15+h,ASC(a$):NETT h >DJ 

1120 SAVE "bihiotec", B, 48000, 3840: IF era=0 THEN !ERA,"b >HV 

ibiotec.bak":GOTO 190 ELSE era=0:GOTO 190 

1130 CLSI1: TAG: HOVE 285,334:PR1NT*ARCHIVES"; :TAGOFF:PEN >KT 
0:LOAD "bibiotec.bin", 18000:PEN 1:L0CATE 4,4:PRINT»- 1 
- CONSULTER UN FICHIER": LOCATE 4,7:PRINT"- 2 - EFFACER 
UN FICHIER": LOCATE 4,10:PRINT"- 3 - RETOUR MENUVaa*^ 

1140 CLEAR lNPUTiWHILE NOT(aa*="l" OR aa»=»2» OR aa*="3 >FG 
"):aa*=INKEY*:WEND:CLS:IF aa*="3" THEN 190 
1150 V1ND0U 11,70,8,22:CALL L9AB0:UIND0U 8,73,8,22:g=PE >UF 
EK ( lâ A AF): LOCATE 2,15:CLEAR INPUT:PRINT" Entrez le nuw 
rot du fichier => ";:INPOT ",a:WHILE (a<=0 OR a>|):LO 
CATE 33, 15: IMPUT "",a:WEND:CLS:bi=l: 1F aa»='l" THEN 970 



1160 a=(a-l)i64:bi=0:no«l="":F0B )=0 TO 7:i=PEEK(t80O0+ >ZB 
a+J):noa»=noa«.+CHR$(i):NEIT:FOR i=0 TO 7:P0KE (fc6000+a+ 
1),207:NEIT:FOR ]=i TO 63.-P0KE (fcÔOOOtat j),0:NEIT:CLS:L 
OCATE 4,6:PRINT"Fichier ";noa*;" efface" 
1170 PEN 0::ERA,noa»+\bin":SAVE "bibiotec",b,liB000,384 >LU 
0::ERA,"blbiotec.bak":PEN 1:GOTO 1230 
1180 a=(a-l)t64:bi=0:noB»=":F0R j=0 TO 7:i=PEEK(i8000+ >FC 
aij):noa»=noa*.*CHR»(i):NEIT j : LOCÀTE 8,1:PRINT (noa»):t 
y=PEEK(i8000+a+8):L0CATE 9,3:1F ty=0 THEN PRINT'FENETRE 
GRAPHIQUE" ELSE PRIHT*PAGE ECRAN* 
-1190 TAG:adl$=HEI«(PEEK(| l 8000+a*9),2):ad2*=HE«(PEEK(fc8 >ZF 
OOOtailO),2):ad3»=adl»+ad2*:a$=ad3$:HOVE 256, 158 : PS 1 NT" 
fc";ad3t;:H0VE 336,158:PR1NT VAL('l<"+ad3*) ; :adl$=HEI»(PE 
EK(J t 8OOO+a+ll),2):ad2»=HEÏ$(PEEK(48O0O+a»12),2):l10VE 42 
0,158: PRINT "XXmXX"; :MÛVE 420,132 

1200 PRINT »minX";:ad3*=adl^ad2l:H0VE 256,132:PR1NT >HB 
"l";ad3t;:M0VE 336, 132:PRIHT VAL("l."*ad3»> ; :adl»=HEXI(P 
EEK(itB000uH4),2):ad2MHEX$(PEEK((>8000«atl5),2):ad3*=a 
dl»*ad2$:H0VE 256,104:PRlNT"t";ad3»; :HOVE 336, 104:PRIHT 
VAL("t"+ad3*); 

1210 aMSTRKVAL^Ii'tadSDhlF LEN(a»)>=5 THEN b*=LEFT* >GZ 
(a>,2):b=«AL(b»)+l ELSE b=l 

1220 HOVE 434,104:PRINT b ; : ao=PEEK ( t8000+a+ 13): TAGOFF : L >KF 
OCATE 46,l:PRINT ao:LOCATE 17,5:F0R i=l TO 48:PRINT CM 
*(PEEK{fc8000+aU5+i)>;:NEXT i 

1230 LOCATE 2, 15:PR1NT"<ESPACE> Pour le aenu <E >AE 

NTREt) Pour la liste des noas":CLEAR INPUT 
1240 a»=INKEY»:IF a$=" " THEN 190 ELSE IF a»=CHR$(13) T >DQ 
HEN CLS:GOTO 1150 ELSE 1240 

1250 TAG:HOVE 280, 334 : PR I NTOPERAT I ONS" ;: TAGOFF: LOCATE >KA 
6,3:PRINT"- 1 - C ALCULATR I CE" : LOCATE 6,5:PRINT"- 2 - 
CONVERTION DEC t HAL/HEX ADEC I MAL * : LOCATE 6,7:PR1NT"- 3 - 
CALCUL D'UNE ADRESSE ECRAN": LOCATE 6,9 
1260 PRINT"- 4 - CALCUL D'ADRESSES MEMO IRE": LOCATE 6,1 >"X 
lîPRINT"- 5 - RETOUR MENU PRINCIPALVCLEAR INPUT:a»=" 
:UHILE NOT(a*="l" OR al="2" OR aM"3" OR a»="4" OR a$=" 
5"):a»=INKEY$:UEND:CLS:CLSfl:IF a*="2" THEN 1330 ELSE I 
F a»="3" THEN 1360 

1270 IF a«="4" THEN 1470 ELSE IF a*="5" THEN 190 ELSE T >KC 
AG:HOVE 268, 334 :PRINT"CALCULATRI CE" ;: TAGOFF: LOCATE 2,1: 
PRINT bl8$:L0CATE 2,3:PRINT b3$:L0CATE 2,5:PRINT"1 - Ad 
itlon":LOCATE 2,7 

1280 PRINT"2 - Soustraction":LOCATE 2,9:PRINT"3 - Hulti )YB 
plicatlon":LOCATE 2,11:PRINT"4 - Divlsaion' :LOCATE 2,13 
:PRINT B RESULTAT DECIMAL :":LOCATE 33, 13:PRINT"RESULTAT 
HEXADECIMAL :":LOCATE 2,1:PRINT" ";bl8*;:lNPUT ",nobrl 
I: LOCATE 2,1:PRINT« ";bt8« 

1290 LOCATE 2,3:PRINT" ";b3*;:INPUT ",nobr2*:L0CATE 2, >GQ 
3:PRINT" ";b3*:a$=":CLEAR INPUT:UHILE NOT(al="l" OR at 
="2" OR al="3" OR a$="4") :a$=INKEY$: u END: IF a$="l" THEN 
res=VAL(nobrl$MVAL(nobr2») 

1300 IF a»="2" THEN res=VAL(nobri*)-VAL(nobr2») ELSE IF >RP 
a»="3" THEN res=VAL(nobrl*)tVAL(nobr2« ) ELSE IF a$="4" 
THEN res=VAL(nobrl*)/VAL(nobr2l) 

1310 LOCATE 20,13:PRINT res: LOCATE 56,13:PRINT"i";HEX»( >YB 
res): LOCATE 2,15:PRINT"<ESPACE> pour le aenu 
< ENTRER) pour continuer" :a»=":CLEAR INPUT:UHILE NOT(a* 
=" " OR a$=CHRI(13)):aMlNKEY*:UEND:IF al=" " THEN 190 
ELSE IF aMCHR»(13) THEN CLS 



1320 GOTO 1270 >HD 
1330 TAGîMOVE 2O4,334:PRINT"CONVERTI0N DECIHAL/HEXADECI >NC 
MAL';: TAGOFF: LOCATE 2,8:PRINT , RESULTAT DECIMAL :":LOCAT 
E 33,8:PRINT"RESULTAT HEXADECIMAL :":LOCATE 2,4:PR1NT»E 
ntrez le noabre => ";:INPUT "\nobrl* 

1340 IF VAL(nobrl*))65000 THEN CLS:GOTO 1330 ELSE LOCAT >FD 
E 20,8:PRINT VAL(nobrll) :LOCATE SG^PRINT^HEXMVALI 
nobr 11)): LOCATE 2, 15: PRINT" (ESPACE) pour le aenu 

(ENTRER) pour continuer" 
1350 a$="":CLEAR lNPUT:lfHILE NOT(a$=" » OR a*=CHR»(13>) >FP 
:a$=INKEY«:UEND:IF a»=" " THEN 190 ELSE IF a*=CHR*(13) 
THEN CLS: GOTO 1330 

1360 L0CATEI1,21,1:PR1NTI1, "CALCUL D'UNE ADRESSE ECRAN" >KF 
: LOCATE 2,6:PRINT" Desirez vous apeller un écran pour d 
eterainer les coordonnées 0/N ":a*="":CLEAR INPUT:VHILE 
NOT(a»=«0" OR a*="N"):at=UPPER»(INKEY$):WEND:CLS:IF af 
="0" THEN 1400 

1370 LOCATE 2,2:PRINT b6*:L0CATE 2,4:PRINT bl2«:L0CATE >AF 

2,8:PRINT'ADRESSE ECRAN :":LOCATE 2,2:PR1NT" ";b6t;:INP 

UT ",xi:LOCATE 2,2:PRINT" »;b6»:L0CATE 2,4:PRINT" ";bl 

2»;: INPUT ",yy: LOCATE 2,4:PRINT" ";bl2l 

1380 fl:((400-(yy+l))/16):f2=FlX(fl):fl=fl-f2:GOSUB 720 >PI 

:ill*HEX«(49152Mf2»80)t(f3»204B)+FlX(u/8)):L0CATE 18, 

8:PRINT"i";HEÏ*(VAL("4"*xll)):L0CATE 2,15:PRINT«<ESPACE 

> pour le aenu (ENTRER) pour continuer" 

1390 a»="":CLEAR INPUT:WH1LE NOT(a«=" ■ OR a*=CHR$(13)) >FI 

:aMINKEY*:llEND:IF a»=" ■ THEN 190 ELSE IF al=CHR»(13) 

THEN CLS: GOTO 1360 

1400 LOCATE 4,2:PRINT" ";b9t;: INPUT "\noal«:LOCATE 4,2 )BK 
:PRINT« ";b9*:L0CATE 4,4:PRINT" ";b2*;" ".-al^'îCLEAR I 
NPUT:UHILE NOT(a*="0" OR a* s "N") :a*=UPPER$( INKEYI) :WEND 
:IF a»="0" THEN 1420 ELSE LOCATE 4,4 

1410 aa=l:PRINT b2l:L0CATE 2,6:PRINT" ";b4*;:lNPUT "",a >JW 
o:LOCATE 2,6:PRINT" ";b4l 

1420 CLS:L0CATE 25,3:PRINT"M0DE D'EMPLOI" .-LOCATE 2,6:PR )IB 
INT"- DEPLACEMENT DE LA CROII =) touches de deplaceaent 
du curseur": LOCATE 2,9:PR1NT"- VALIDATION DE LA POSITI 
ON => touche (ESPACE)": LOCATE 21,12:PRINT"(APPUYEZ SUR 
UNE TOUCHE)":CALL J.BB06 

1430 CALL tAO94,i75O0,t25A0:PEN 0:1F aa=l THEN aa=0:HOD >LY 
E ao: BORDER bo,bol:FOR i=0 TO ae:(NK i,pe(i),pel(i) :NEX 
T.-LOAD noal$,&COOO:PEN 1 ELSE LOAD noal»,li7500:PEN itIP 
AGE, 17500,0 

1440 CALL l9D2A:ccc=l:G0SUB 190:ccc=0:x=PEEK(l9D26>:xl= )PU 
PEEK(k9D27) :y=PEEK(fc9D28) :yl=PEEK(t9D29) nl=HEX*t*>îKll 
=Hn*(jtl):xiMxU+x*:ix=yALCI["m*):y*=HEX*(y):yU=HEI 
*(yl):yy»=yl$+y$:yy=VAL("fc"+yy*) 

1450 LOCATEtl, 21, l:PRINTtl, "CALCUL D'UNE ADRESSE ECRAN" )PF 
: LOCATE 2,2:PRINT b6»;xx:L0CATE 2,4:PR1NT bl2*;yy: LOCAT 
E 2,8:PR1NT"ADRESSE ECRAN :":fl=((400-(yy+l))/16):f2=FI 
I(fl):fl=fl-f2:G0SUB 720:xlt.=HEIK49152*(f2«80M(f3«204 
8)+FII(ix/8>) 

1460 LOCATE 18,B:PRÏNT"t";HH*(VAL("i"*xl*)):L0CATE 2,1 )EK 
5: PRINT" (ESPACE) pour le aenu (ENTRER) pour c 

ontinuer":a*-"":CLEAR INPUT:WHILE NOT(a*=" ■ OR a»=CHR» 
(l3)):a*=IHKEY»:WEHD:iF a*=" " THEN 190 ELSE IF a*=CHR* 
(13) THEN CLS:GOTO 1360 

1470 TAG:HOVE 223, 334: PRINT "CALCUL D'ADRESSES MEMOIRE"; >CC 
: TAGOFF: LOCATE 4,2:PRINT"Fixez l'adresse inférieur et s 
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uperieur dans la bank 0":LOCATE 4,7:PRINT bl»:L0CATE 4, 
5:PRIMr ";blOt; : INPUT inf*:LOCATE 4,5:PRIMT" ";blO* 
;:LOCATE 4,7 

1480 PRINT" •;bl»;:IHPUT *».supi:PRINT* ":CLS:LOCATE 21 >YC 
,15:PRINT"< Entrez 0 pour sortir >':V1ND0U 8.73,8,20:y= 
2:F0E i = l TO 10O:LOaTE 4,y:PRINT" ";b20$;i;" => ';:INP 
UT ",fIc»(i):IF VAL(fic*(i)XO THEN ESSOR 6 ELSE LOCAT 
E 4,y:PRlNT" *;b20$;i;' => " 

1490 y=y+2:IF y=14 THEN y=2:CLS >ZH 

1500 IF VAL(fic*(i))O0 THEN NEXT i ELSE U1ND0V 8,73,8, >DE 

22:CLS:b»=HID*(sup»,l,l):IF «="1" THEN IF VAL(inf*XO 

THEN i nf 4=STR$ ( 32768- ( ABS ( C INT ( VAL( i nf $ ) ) ) ) +32768 ) 

1510 IF b»='l" THEN IF VAL(sup»XO THEN sup$=STR$( 32768 >PF 

-<ABS(ClNT(VAL(supt))))+32768) 

1520 a=VAL(sup$)-VAL(inf»):a$='V:b=0:IF a<=0 THEN a=16 >LR 
384:a$=*y* 

1530 FOR j=l TO (1-1):IF (HID»(f ic$( j),l,l)=*V" OR HID* >CL 
(fic«( j),l,l)="W OR niD*(f ic»( jï , 1, 1)="X" OR HlD*(fic$ 
< J) , 1, i)="Y- OR HID»(fic*(1),l,l)='Z") THEN 1540 ELSE I 
F VAL(fic»(j)Xa THEN a=a-(VAL<f ic*( j ) ) +2) :b=b+l :f ic*C j 
)=a*+fic»(j):lF a<=0 THEN 1=i 

1540 NETT J:IF b<i THEN a=16384:a»=CHR*(ASC(a*Hl) :1F a >JZ 
»=*[* THEN 1550 ELSE GOTO 1530 

1550 adr0=VAL(inf*):adrl=0:adr2=M000:adr3=&8000:adr4=l< >AE 
C0OO:y=l:i=l:UINDOU 8,48,8,20:HQVE 580,50, 1,0: DRAW 580, 
270:HOVE 525,270:DRAW 525,50:F0R 1=0 TO 4:N0VE 521,50+( 
ji55):DRAU 580, 50+( 1*55) : NEXT: HOVE 515,50:DfiAU 515,270: 
HOVE 460, 270: DRAW 460,50 

1560 FOR 1=0 TO 4:H0VE 456, 50+ ( |«55) : DRAW 515,50+( |«5S) >AY 
:NEXT:TAG:HQVE 462,290:PR1NT*BANK 0";:HOVE 529,290:PRIN 
T"BANK 1-;:H0VE 410,270:PRINT"&FFFF"; :HOVE 410,215:PRIN 
T"t,COO0" ; :H0VE 410, 160:PBlHT"ït8000" ; :HOVE 410, 105:PRINT 
"lr4000";:HOVE 440,60 

1570 PRINT»M)";:TAGOFF:yyl=0:yy2=55:yy3=110:yy4=165:IF >DD 
VAL(lnf»XO THEN xx=(110-(ABS(CINT(VAL(inf*)/297.89)))+ 
110) ELSE xi=ClNT<VAL(inf*)/297.89) 

1580 FOR H TO (l-l):bl=HlD*(flc*(1),l,l):b=VAL(r1ID*(f >EB 
ic*(j),2)M:iF b»="V" THEN bank=0:adr=adrO ELSE IF b*= 
*W THEN bank=l:adr=adrl ELSE IF M="P THEN bank=l:adr 
=adr2 ELSE IF b»="Y* THEN bank=l:adr=adr3 &SE IF b»=*Z 
■ THEN bank=l:adr=adr4 

1590 LOCATE 2,y:PRINT"FICHIER Nui.";J;" Adr.";"Ji";HEX*< >TG 
adr);" Bank";bank:y=y+l:b=b+l:x=x+l: IF b*="V" THEN adr 
0=adrO+b ELSE 1F b*="y* THEN adrl=adrl+b ELSE IF bi="X* 
THEN adr2=adr2+b ELSE IF b*='Y" THEN adr3=adr3+b ELSE 
IF b*=*Z* THEN adr4=adr4+b 

1600 fic«( j)=MlD»(fic*(]),2):a=CINT(VAL(ficlU))/297.B9 >GA 
):IF b*="V" THEN FOR h=l TO a STEP 2:H0VE 460,50+xx+h:D 
RAV 515,50+xx+h:NEXT:xx=xx+(h-l) ELSE IF b*="W THEN xi 
l=yyl ELSE IF b$=*X* THEN xxi=yy2 ELSE IF b*=*Y* THEN x 
xl=yy3 ELSE IF b$=*Z* THEN xxl=yy4 

1610 IF NOT(b*=*V") THEN FOR h=l TO a STEP 2:N0VE 525,5 >HA 
0+xxl+h:DRAU 580,50+xxl+h:NEIT: IF b»="y" THEN yyl=yyl+f 
h-1) ELSE IF b*="X" THEN yy2=yy2+(h-l) ELSE IF b*="Y" T 
HEN yy3=yy3+(h-t) ELSE IF bl="Z" THEN yy4=yy4+(h-l) ELS 
E yy4=221 

1620 IF yy4>220 THEN PRINT" FICHIERS TROP IHPORTANTS. . . >NU 
!":GOT0 1640 ELSE IF 1=14 THEN UINDOU 8.73,8,22:L0CATE 
l,15:PRINT"<Appuyez sur une touche pour obtenir la suit 



e>":CLEAfi !NPUT:CALL &BB06:L0CATE 1,15:PRINT STRING»(46 

'):UINDOU 8,48,8,20:x=l 
1630 NEIT >LB 
1640 ERASE fic*:DIH f ic$(60):WINDOW 8,73,6,22:L0CATE l, >AU 
15:PR1NT"< Appuyez sur une touche pour le tableau >":CL 
EAR INPUT:CALL IBB06:CLS:H0VE 100,290,0:DRAy 588,290:H0 
VE 100,288:DRAy 588, 288: LOCATE 22,2:PRINT 'ESPACE RESTA 
NT EN MEMOIRE": HOVE 200,100,1,0 

1650 DRAV 440,100:DRAU 440,220:DRAV 200,220:DRAy 200,10 >YR 
0:F0R i=0 TO 100 STEP 20:H0VE 200,100+i:DRAW 440,100+i: 
NEXT: HOVE 250,200:DRAU 250, 100:HOVE 300. 200: DRAW 300,10 
0:HOVE 204,99:DRAV 441,99:F0R i=0 TO 2:H0VE 441+i,99:D£ 
AU 441+i,217:NEIT:TAG:H0VE 208,216 

1660 PRINT"BANK"; :MOVE 258, 216 : PB I NT'BLDC ; :HOVE 308.21 >TB 
6:PRINT , 0CTETS RESTANTS*; : HOVE 224, 196 :P8INT"0";: HOVE 2 
62,196:PRINT"XXII";:F0R i=0 TO 3:H0VE 224,176-(i«20):PR 
INT*1";:H0VE 264,176-(i*20):PRlNT i;:NEXT:H0VE 312,196: 
PRINT VAL(sup*)-adrO;* octets'; 

1670 HOVE 312,176:PR1NT 16384-adrl;" octets»; :HOVE 312, >HF 
156:PRINT 16384-(adr2-16384);' octets';:HOVE 312,136:PB 
INT ABS(adr3)-16384;' octets'; :HOVE 312, 116:PR1NT ABSta 
dr4);" octets' ;:TAGOFF 

1680 LOCATE 15, 15:PRINT'< Appuyez sur une touche pour I >»X 
e HENU >':CLEAR INPUT: CALL tcBBO6:GOT0 190 
1690 IF DERR=146 AND ERL=1060 THEN FOR i=0 TO 59:F0R j= >JJ 
0 TO 7:P0KE (iB000+(U64) + j),207:NEXT ), l:era=l:i=0:RES 
UNE 1080 ELSE SOUND 1,88,15,15:F0R 1=1 TO 160:NEXT:S0UN 
D 1,88,15,15 

1700 HODE 2:UIND0V 8,73,8,22:PAPER 0:PEN 1:INK 0,inO(nn >HA 
):INK 1, inl(nn):BORDER inO(nn) .-LOCATE 19,4 
1710 1F ERR=6 THEN der=l ELSE IF ERR=13 OR ERR=5 THEN d >ZH 
er=2 ELSE IF ERR=11 THEN der=3 ELSE IF ERR=100 THEN der 

=2 

1720 IF ERR=32 THEN der=(DERR AND &7F) >EJ 
1730 IF der=l THEN PRINT'NOHBRE TROT GRAND...!" >TE 
1740 IF der=2 THEN PRINT'ARGUHENT INCORRECT... !" >UB 
1750 IF der=3 THEN PRINT'PAS DE DIVISION PAR ZERO...!* >BL 
1760 IF der=16 THEN PRINT'HOH DE FICHIER INCORRECT... !* >CU 

1770 IF der=lB THEN PRINT'CE FICHIER N'EXISTE PAS...!* >AQ 
1780 IF der=19 THEN PRINT'CATALOGE SATURE SAUVEGARDE IH >XT 
POSSIBLE...!* 

1790 IF der=20 THEN PRINT'DISQUETTE PLEINE SAUVEGARDE I >YG 
HPOSSIBLE...!" 

1800 IF der=66 THEN PRINT*ECRITURE IMPOSSIBLE DISQUETTE >XU 
PROTEGE. . . ! * 

1810 FOR 1=1 TO 4000:NEIT l:CLS:cc=0:ccl=0:ec=0:PEN 0:P >EA 
RINT FRE(*"): RESUME 190 

1820 DATA 0,25,3,2,17,13,22,5,14,19,26,24,1,6,11,23 • >QH 
1830 DATA 13,0,12,0,16,0,14,0,15,0,0,14,0,17,0,22,0,15, >ZD 
0,16 

1840 TAG:HOVE 262,334:PRINT"NETT0YAGE BASIC"; :TAGOFF:LO >JF 
CATE 5,4:PRINT"INTR0DUISEZ LA DISQUETTE CONTENANT LE PR 
OGRAMME 'COHPACr*: LOCATE 32,7:PRINT»ET':LOCATE 22,10:P 
RINT'APPUYEZ SUR UNE TOUCHE" :CLEAR 1NPUT:CALL JcBB06:HEH 
ORY &9B00:CLEAR 

1850 POKE tA36F,101:RUN 'coipactl.bin" >KB 
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GFR.Ia gestion de fichier 'plus raptda st plu* simple à utili- 
ser tu meum " voe fiche* comme VOUS *ou*et T il n Impoee 
r îen : f ichiere de eo Ko, |u*qu' ■ 1907 cefectér et ■ affecter a 
un nombre d« f ubr iqu« pouvant xi*mdr> 06S , , , 
Création » suppression modification jmpresalon à* fiches, recner- 
cha multicrite tes , , Da plue<GFR aat fourni avec des meeejues 
prêts à l'amplû! : gestion da catalogues cas disquette , da ceve 
a vin, de documentation 

tOO % langage machina, pour 6126 uniquement ,a 275 F GFR n'as! 
pas una geatton da tlchiar ,ceet un 



1 

courrammttfit hsisOecrmal, <l y i DERUGGER 23 ! onction» corë- 
eid entée : mon l leur ♦ desessembleur , relogeur (anfin la déplace- 
ment daa programmas *n langage machina), orsafcpoints et paa a 
paa ivisualiaetton da V état daa registres avant ET i 

instruction) , , , INDISPENSABLE. Pour 6120, 245 F 



MI-COM la magicien du minitel Transmission 
de lich<ers,mêmwisailon de page*,, interface et soft 490 F 



PR1NT est pour eaux qui onl la ensne* d svi 






-Un NARDCOPY hyper complet. 

imprime tous les mode* écran— Ifnteeaaaon U 


rtele ou par H 


"è- 


Ire— paremeirsoHî - èc Nette de 1 à T ibonj* 
-Un TRAITEMENT DE TEXTE (un vreO 


>ur lee posters 


1 


- 36 COMMANDES «SX ; 






le paramétrage sans osiers ( SOULA eet oui 






que PRlMT*e ,CHBS(î7)f — "rCHRaMD. , . \ 
Pour tous les CPC 240 F 







Avec SCftEEN vous avei tout ce qu'II faut pour modifier. 
b*e» faire subir mtlle torturée eux Image* les plu 
-Un LOGICIEL DE MONTAGE avec OAO 

-tin COWViffTimW DE MODE ECRAN 

tramages .suppression* ni changements da couleurs 




d écran 



GRaPH-SET est un logiciel de OAO spécialement 
Une BIBUGTHEÛUE DE SYMBOLES redfctlniesabtea 
Des FONCTIONS FAÇON PAO : copie , Incrustât Ion, inversions 

* Une sortie sur IMPRIMANTE PARAMETRABLE 



au DESSIN TECHNIQUE ( PLANS SCHEMAS , CJ. r . > \ Jl Offre 

* Un DAO complet r lignes .polnli hec hures, . , M aer ographe 

* S ECRANS en mémoire SIMULTANEMENT 
fonction UNOO, MULTI FENETRAGE , LOUPE * M 



Pour CPC SUS. 37S F Disquette DEMO 50 F (GRAPH— SET + CJ ASSISTANT) .Teslé dans CPC n T 37 



Avec TEST , L'ORDINATEUR SE TRANSFORME EN OSCILLOSCOPE et celcuie puis athene EN CONTINU »ee signaux qui résultent 
dur ensemble de Circuit* intégrée TTL L'ELECTRONIQUE SANS MATERIEL. SANS COMPOSANT , S ANS CABLAGE NI SOUDURE . 
Jdeal pour L'INITIATION al L ENSEIGNEMENT : aucun nsque de court- circuit 
tendre le dernière soudure Ml est trop tard | pour constater une erreur. 

AFFICHAGE DE 0 TRACES— ARRET SUR IMAGE- IMPRESSION DES DIAGRAMMES — MESURE D'INTERVALLE 
BIBLIOTHEQUE de 53 ci, TTL ( pot te*, compteur s. reg. s très , - 
Pour tout CPC , 2 vers*ons TEST 750 à 500 F . TEST 2000 a 750 F 



CJ ASSISTANT est un logiciel sens *ouwal*nt *ur C PC , Reproduction fidèle des OAO tournent sur PC !qu* coûtent . ( H permet 
le dessin des CIRCUITS IMPRIMES evsc des caractéristiques qu AUCUN AUTRE LOGICIEL NE PROPOSE 

DESSIN EN « COULEUR! cm qui permet de voir SUPERPOSEES, PAR TRANSPARENCE. Ma 2 raeaa et l 'implantation des composants. 
Le dessin VECTORIEL une SURFACE de TRAVAIL de 640.640 mm J et tacement de la gnîle ou d'un élément SANS AFFECTER le j 
100% RESIDENT de r implantation de la première pastille fusqu à te sortie sur imprimante TOUT rat en mémoire. 
BIBLIOTHEQUE ei GENERATEUR de SYMBOLES Indication de le position d'un composent D partir de son numéro Echelle 1 et VI 
Effacement .copie et déplacement de *one* MACRO COMMANDES 

3 O encore plue pu lésante Pour 612e boo f 




a Rte 



IEAUX 

M AR SAC 




C*. 



snt chaz c«f*teina 



veuille)* mst férir» carvanir C dtack uniguimtnt 1 : 
fi Uns » doi 



INJOM 

ADRESSE . 



entatlon (BFBQ en Elmbr-Ml 
PRENOM. 



GP. 



VILLE 



PORT; é la commande 20 F en contre remboursement 50 F 
renseignements et commandes &ar téléphone ; 



PORT 
TOTAL 



Vingt-deuxième partie 



Nous nous proposons de demander à AMSTRAD-3D 
de pouvoir nous fournir deux types d'images : «fil de 
fer» et «parties cachées éliminées». Dans notre chaîne 



de traitement la seconde tâche sera prise en charge 
par une section intitulée SUPERDES. 




On accédera à SUPERDES à tra- 
vers la section DES où s'opé- 
rera la saisie du point de vue 
et le calcul des paramètres de visée, 
matériel qui pourra être utilisé Indiffé- 
remment dans DES et dans SUPERDES. 
Il faut en effet éviter d'avoir trop de 
sous-programmes «en double» à 
cause de la place disponible sur la 
disquette, car nous touchons Ici aux 
limites des possibilités de la machine. 

Nous allons donner ici une version 
très abrégée de DES (en fait avec le 
minimum de matériel) permettant de 
créer une Image à partir d'un objet 
résidant en mémoire centrale. 

La section de MOD1 est une ver- 
sion minimale, permettant de créer 
des objets quelconques au clavier et 
de les stocker. Nous allons créer l'ob- 
jet suivant, Il s'agira d'un simple car- 
ré d'axe OZ, situé dans le plan XOY. 




Figure 1. La mire 

Nous allons «segmenter» les arêtes 
de ce carré. Celui-ci sera constitué 
de quatre chaînes rectilignes. 











0 








- 




— > 
X 









Figure 2. La structure de la mire. 
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Et nous verrons plus loin pourquoi. 
La création de cet objet correspond 
à la procédure suivante (les ordres au 
clavier sont en caractères gras) : 

RUN"MODl 

a-Créer un objet 

a-Chaîne par chaîne 

a-Fil de fer 

a-Saisie clavier 

Nombre de segments ? 6 

Arêtes virtuelles en début de chaîne. 

Leur nombre ? 0 

Point numéro 1 

XT=?-3 

YT=? -3 

ZT=?0 

Point numéro 2 

XT=?-2 

YT=? -3 

ZT=?0 

etc. 

Pour ceux qui n'ont pas l'habitude, 
la succession des coordonnées des 
points chaînés est donnée cl-après : 



! Numéro point 

L_ 


XT 


YT 


^ _J 


1 


-3 




0 


2 


-2 


-3 


0 


3 


-1 


-3 


0 


4 


0 


-3 


0 


5 


1 


-3 


0 


6 


2 


-3 


0 


7 


3 


-3 


0 


; Numéro point 


XT 


n 


ZT 


1 






0 


2 


3 


-2 


0 


3 


3 


-1 


0 


4 


3 


0 


0 


5 


3 


1 


0 


6 


3 


2 


0 


7 


3 


3 


0 


Numéro point 


XT 


YT 


ZT ! 


1 


3 


3 


0 


2 


2 


3 


0 


3 


1 


3 


0 


4 


0 


3 


0 


5 


-1 


3 


0 


6 


-2 


3 


0 


7 


-3 


3 


0 



Numéro point XT YT ZT 



'JH -3 3 0 

2 -3 2 0 

3 -3 10 

4 -3 0 0 

5 -3-10 

6 -3-2 0 

7 -3-3 0 

Vous stockerez cet objet en l'ap- 
pelant CARRE. 



COMMENTAIRE SUR 

CETTE PREMIERE 
APPROCHE DE DES 

• On a ajouté une ligne permettant 
d'opérer le chaînage : 
2151F C=12THEN CHAIN'DES 

On passe donc sur la section DES 
en conservant les fichiers de travail. 
La section commence par une ligne 
5 qui interdit son accès direct et oblige 
à transiter par MOD1 . Le MENU est évi- 
demment Identique à celui de MOD1 . 
L'option : 

l-Représenter un objet 

envoie à l'adresse 27000. Les lignes 
2701 5 et 2701 7 sont en rapport avec 
l'élimination des parties cachées. On 
se contentera Ici d'y répondre par la 
négative et on se limitera à la sous- 
option : 

a-Objet en mémoire. 

Dans ce cas l'appel au sous-pro- 
gramme 30000 examine l'objet rési- 
dent, avec ou sans nom, puis II y a 
saut à la ligne 27140 ou s'effectue la 
saisie des coordonnées du point d'ob- 
servation (registres XM.YMZM) et du 
point visé (registres XG.YGZG), ainsi 
que de l'ouverture angulaire (regis- 
tre AN). On ne décrira que la saisie 
au clavier. Un nouveau court-circui- 
tage de lignes envoit (ligne 27350) au 
sous-programme 7000 qui calcule les 
paramètres de la visée, c'est-à-dire 
ce qui sera commun dans le calcul 
de tous les points Images. La leçon 
précédente explique dans le détail 
ce que sont ces valeurs : 

xu vu zu 

xv yv zv 
xw uw zw 




La ligne de dispatching 

27360 ON CD GOSUB 12000, 11000, 
10000 

envoie à différents sous-programmes 
selon le type de dessin. Ici nous ne 
considérerons que le dessin d'un ob- 
jet présent en mémoire (sous-pro- 
gramme 1 2000). Ce sous-programme 
est très simple et se contente d ' explo- 
rer l'objet, chaîne par chaîne (Indice 
I allant de O à L), point par point 
(indice J allant de O à N(l). Le sous- 
programme 15000 est appelé pour 
chaque point et effectue le calcul des 
coordonnées écran (XE.YE). La leçon 
précédente donne toutes les explica- 
tions sur cette manipulation de regis- 
tres. 

En fin de dessin on a une boucle 
d'attente en 27390. Tant qu'une tou- 
che n'est pas pressée l'AMSTRAD émet 
un signal sonore, prévenant ainsi qu'il 
a achevé le travail (signal dont vous 
pouvez vous passer en manipulant le 
potentiomètre situé au verso de l'ap- 
pareil). 

On remarquera au passage les li- 
gnes : 

1 5260 IF J = AV(I) THEN PLOT XE.YE 
1 5270 IF J > AV (I) THEN DRAW XE ,YE ,1 0 

AV (I) représente le nombre d ' arê- 
tes virtuelles . Celles-ci ont déjà été 
évoquées à l'avant-demière leçon. 
Lorsqu'on souhaite éliminer les parties 
cachées par des facettes il est néces- 
saire que celles-ci soient des contour 
polygonaux fermés et convexes . 
Cette technique de la décomposition 
à l'aide d'arètes virtuelles a été pré- 
sentée formellement dans la leçon 
intitulée :«Approche du problème de 
l'élimination des parties cachées. 
Structure de données». Selon les lignes 
ci-dessus on volt que lorsqu'il y a des 
arêtes virtuelles, c'est-à-dire lorsque 
AV(I) est non nul, celles-ci seront igno- 
rées au traçage, alors qu'elles réap- 
paraîtront lorsque nous mettrons en 
jeu l'algorithme du peintre. 



CREATION D'IMAGES 

• Nous allons profiter de l'occasion 
pour illustrer l'effet de la segmenta- 
tion des arêtes. Le but est évidemment 



de faire des images les plus fidèles 
possible. Je me souviens d'une équipe 
d'informaticiens qui travaillaient sur un 
gros système près d'AIx-en-Provence 
et dont le job consistait à faire des étu- 
des d'implantation d'autoroutes (qui 
sont des objets que l'on représente 
en général tels que pris au téléobjec- 
tif, c'est-à-dire avec de faibles ouver- 
tures angulaires). Ils avaient voulu un 
jour mettre en mémoire le cloître 
roman d'Aix-en-Provence pour en 
faire des dessins. Celui-ci est très beau 
mais relativement petit. Le visiteur ne 
peut donc pas bénéficier de beau- 
coup de recul pour le voir. Un photo- 
graphe dirait qu'il lui faut travailler au 
grand angulaire et un Informaticien 
que ceci correspondrait à des valeurs 
élevées de l'ouverture angulaire AN. 

Bref les gens de ce centre avaient 
fait des Images de ce cloître qui ne 
les satisfaisaient pas. Ils avaient tra- 
vaillé consciencieusement et relevé 
les points avec précision, mais le ré- 
sultat n'était pas bon et personne ne 
comprenait pourquoi. Pour illustrer 
mon propos j'ai remplacé les belles 
cobnnes romanes dudlt cloître par des 
parallélépipèdes rectangles nette- 
ment moins élégants, mais cela suffit 
néanmoins pour réaliser, comme feu 
Fernand Reynaud «qu'il y a comme 
un défaut». Cela vient du fait que si 
les images des sommets des parallé- 
lépipèdes et des facettes sont exac- 
tes, les images des arêtes sont faus- 
ses, simplement parce que l'image 
d'une droite, en vision grand angu- 
laire, n'est pas automatiquement une 
droite. 



Figure3. Première image du «cloître». 

Prenez par exemple l'objet CARRE 
que nous venons de créer. C'est un 
carré situé dans un plan horizontal. 
Nous allons créer des Images de ce 
carré à partir de points situés sur l'axe 
OZ, à partir «d'altitudes» décroissan- 
tes. Plus nous nous rapprochons de cet 
objet et plus il faut accroître l'ouver- 
ture angulaire pour conserver celui- 
ci dans le champ, En même temps 
les côtés du carré semblent s'incur- 
ver. On appelle ce phénomène 
l'aberration en barillet. 

Procédure de création de l'image 4a : 

RUN"MODl 

d-Charger un objet 

Nom de l'objet :? CARRE 

l-Représenter un objet 

Parties cachées éliminées ? N 

a-Dessin en mémoire 

a-SalsIe de point de vue au clavier 

Coordonnées observateur : 

X = ?0 

Y = ?0 

Z = ?20 

Coordonnées point visé : 
XG = ?0 
YG = ?0 
ZG = ?0 

Ouverture angulaire 

20 degrés par défaut ? 48 

Signal sonore en fin de dessin. In- 
terruption par <Return> exclusivement. 
SI vous Interrompez par une pression 
de la barre ceci tentera d'activer une 
routine machine A000 qui correspond 
à la recopie d'écran. Or celle-ci n'est 
pas encore présente. Nous complé- 
terons dans une leçon ultérieure. 
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Figure S. L'image d'un tunnel rectiligne à 

avec aberration en barillet. 

SI les gens du centre informatique 
avaient pris la précaution de segmen- 
ter suffisamment les génératrices des 
cylindres figurant les fûts des colon- 
nes ils auraient pu voir celles-ci se 
courber également. 



cet angle se ferme un tant soit peu, 
on fragmentera le segment AB en 
deux ou plusieurs morceaux 1 . Le lec- 
teur voit bien que cette opération n'a 
rien de très compliqué a priori. Or ce 
gadget n'est pas en général présent 
sur les gros systèmes de synthèse 
d'image, Si vous regardez avec at- 
tention les virevoltes d'objets calcu- 
lés aux grands angles et présentés à 




Figures 4a à 4c. Images successives du 
Apparition de l'aberration en barillet. 



Dans l'image suivante on a dessi- 
né d'un tunnel prismatique formé par 
des carrés joints par des arêtes recti- 
lignes segmentées. Celui-ci est créé 
avec une ouverture angulaire de AN 
= 30°. On voit nettement les «poutres» 
et les arêtes de ce tunnel s'incurver 
par effet d'aberration en barillet. 



Figure 6. L'image du «cloître» avec 
aberration en barillet. 

Il est assez facile de négocier cette 
affaire automatiquement. Imaginons 
un segment AB. On s'arrangera pour 
que le programme calcule les ima- 
ges a et b des points A et B, ainsi que 
l'Image m du point M, milieu du seg- 
ment AB. Il suffira de calculer l'angle 
formé par les segments ma et mb. Si 
cet angle est proche de 1 80° on lais- 
sera le segment AB tel quel. Mais si 



la télévision, vous pourrez vous en 
rendre compte de visu. 

Nous essaierons de négocier cette 
affaire dans une prochaine leçon. 



1 . On peut soit indexer la fragmenta- 
tion sur la valeur de l'angle, soit utili- 
ser une procédure récursive, c'est-à- 
dire rééditer l'opération avec les deux 
moitiés créées, etc. 

Jean-Pierre Petit 
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1 REM (super)DES LEÇON CFC5Z2 >Y|| 

2 1F FDM THEN 230 >LK 
5 SOUND 1.20: CLS:PRINT"Pas d'accès direct a DES":PR!NT >KK 
:PRlNT"Je vous renvois sur M0D1...":RUN"H0D1" 

10 BORDER 26»RND:CLS : REM MENU PRINCIPAL >KR 

15 PRINT"MENU PRINCIPAL" :FR1NT >CF 

20 PRINTVCreer un obiet" >AE 

30 PRINT"b-CaiDletei obiet ou bloc" >HZ 

40 PRINT"c-Stûcker un objet' >DX 

50 PRINT"d-Charger objet" >ZF 

60 PRINTVGestion de blocs d'obiets" >QL 

70 PRlNT'f-Gestiûn du catalo?ue" >JH 
80 PRINT")> -Manipuler ohjet uu bloc" ■ >NM 

90 PR.INT"!. Fusions diverses" >EI 

100 PRINT'i Exaiiner objet" >CA 

110 PR I NT" j- Fichier objets standards" >RM 

120 PRINT"k-voir" >PR 

130 PR I HT" 1 - Représenter un obiet" >LP 

140 PRINT-B-Plan trois vues" >DV 

150 PRINT'n- Inverser objet ou bloc" NO 

160 PRINT'o-Changer type obiet ou bloc" 'TG 

170 PRINTVChanger de drive" >EE 

180 PRINT"q-Quitter» >IJK 
190 IF BL»<>"" THEN L0CATE 22, 17:PRINT"Bloc resident":L >GH 
0CATE 22, 19:PRIMT BL* 

192 LOCATE 25,2 : PRINT"SUPERAMSTRAD-3D" )JF 

193 LOCATE 29.4 :PRINT CHR»(I64);« J. P. PETIT" >NB 

195 IF EL* <> " THEN LOCATE 22,21 :PRINT"Objet résident >KC 
": LOCATE 22.23:PRINT EL* 

196 LOCATE 32. 10:PRINT"Drive ";DRIVE* >HV 

197 IF LO-t THEN LOCATE 31.23:PRINT L+l:" ch.":L0CATE >WG 
22,25:PRINT TYPE* 

198 LOCATE 1,22 >Y» 
200 GOSUB 65000 >W 
203 IF CM5 OR C = 14 THEN CHAIN"H0D2 >BC 
210 1F CM7 THEN END >NL 

212 IF CM4 THEN 10 >LC 

213 IF CM5 THEN 10 )LE 
220 IF CCI OR C>17 THEN 10 >R!. 
225 IF C = 16 THEN GOSUB 17000:GOTn 10 >CA 
230 MODE 1: ON C GOSUB 64000.64000.8000. 5000.64000.6 >GP 
4000. 63000. 63000. 64000. 64000. 13000. 27000 . 34000 

240 !ERA."».BAK" >LF 

999 GOTO 10 >UE 

3000 REM DESSIN ELEVATION POUR SAISIE Z >HE 



3999 RETURN >HD 

4000 REM SAISIE (VERTICALE) POINT SUR ECRAN >HX 
4399 RETURN >HE 

5000 REM Charger obiet >RE 

5001 CLS: FI = 1 :REM FLAG NON TRACE >BJ 
5005 PRINT:PRlNT"Charger obiet (disquette obiet !...)": >UH 
PRINT 

5007 INPUT"Noi de l'objet »:EL*(K) >GK 

5010 PRINT"Je charge \EL*(K) >AA 

5020 IF DRIVE2M THEN !B >TY 

5022 0PEN1N EL*(K) >MD 

5025 EL*-EL*(K) >XJ 

503O INPUT I9,TYPE(K).GX(K).GY(K).GZ(K).RE(K).L >RJ 

5040 FOR I = 0 TO L >FC 

5050 INPUT I9,N(I).AV(I) >TD 

5060 FOR J = 0 TO N( 1 ) >MC 

5070 INPUT I9.XT(1.J).YT(I.J).ZT(1.J) >FE 

5075 IF FI =0 THEN GOSUB 15000 >UN 

50UO NEXT J :NLXT I >MV 

5090 CLOSE IN >ME 

5095 TYPE*MYPE»(TYPE(K)):TYPEMYPE(K) >KC 

5100 FI = 0 : REM REARMER FLAG >«T 

5998 !A >XF 

5999 RETURN >HF 
7000 REM CALCUL PARAMETRES VISION >CD 
7090 CX - XG - XM : CY = YG - YM : CZ = ZG - ZM >EV 
7100 DD » SOR (CX»CX + CY*CY ) >VF 



7110 IF DD : 0 AND CZ > 0 THEN TE = 0 : Kl - PI / 2 : G >UU 
OTO 7210 

7120 IF DD = 0 AND CZ < 0 THEN TE - 0 : Kl =-PI / 2 : G >VJ 
OTO 7210 



7130 Kl = ATN (CZ/DD) >NJ 

7140 IF CX = 0 AND CY > 0 THEN TE » 1.57 : GOTO 7210 >LQ 

7150 IF CX = 0 AND CY < 0 THEN TE =-1.57 : GOTO 7210 >MU 

7160 TE = ATN (CY/CX) >NH 

7170 IF CX < 0 AND CY > 0 THEN TE = PI + TE >CK 

7160 1F CX < 0 AND CY < 0 THEN TE = PI ♦ TE >CJ 

7190 IF CX < 0 AND CY = 0 THEN TE = PI >ZN 

7200 IF CX = 0 AND CY < 0 THEN TE = - PI/2 >CT 

7210 REM >AB 

7220 REM >AC 

7230 CT = COS (TE) : ST * SIN (TE) >XC 

7240 CK -- COS (Kl) : SK = SIN (Kl) >XY 

7250 XU = CK»CT : YU = CKiST : ZU=SK >AH 

7260 XV = - ST : YV -- CT : ZV = 0 >UM 

7270 XU = - SK»CT : YU = - SK»ST : ZU = CK >CC 

7999 RETURN >HH 

8000 CHAIN"M0D1 >FH 
10000 REM dessin par bloc >UK 

10999 RETURN >PA 

11000 REM DESSIN PAR ELEMENTS >YQ 

11999 RETURN >PB 

12000 REM Obiet deja présent en ieioire >HD 

12001 FI =0 >JF 
12005 IF L=-l THEN CLS:PRINT"Pas d'objet en ieiolre, eh >TU 
, farceur !":SOUND 1,50 :FOR TTM TO 1000: NEXT TT : GO 

TO 10 

12010 GOSUB 62000 >LH 
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12020 FOR 1 = 0 TO L >LH 

12028 FOR J=0 TO N(I) >NA 

12030 GOSUB 15000 >LM 

12040 NEXT JîNEXT I >N2 

12999 RETURN >PC 

13000 REM Voir >WB 
13999 CHAIN-VOIH" >HR 
15000 REM Calcul et trace iiage )ZC 
15040 XL=XT(I,J)-XM >PP 
15050 YL=YT(l,J)-YM >PU 
15060 ZL=ZT(I.J)-2M >PY 
15090 XA=ÏLHumiYU+ZL«ZU >XI 
15100 YA=XL»IV+YL«YV+ZL«ZV >XT 
15110 ZA^XLHU+YLiYy+ZLiZW >XY 

15121 IF XAS AND YAS AND ZAS THEN ZAS. 001 >KJ 

15122 RO = SQR(YA»YA*ZA»ZA) >VF 

15125 1F XAS THEN B=90:G0T0 15127 >AT 

15126 B=ATN(R0/XA):BS»18O/PI >YD 

15127 1F XA<0 THEN B=BU80 >TK 
15130 IF YAS AND ZAS THEN ASO:GOT0 15180 >JB 
15140 1F ZAS AND YA >0 THEN A=-9O:G0T0 15180 >KN 
15150 IF ZAS AND YA(0 THEN A=90:GOTO 15180 >JC 
15160 A=-ATN(¥A/ZA) :A=A*180/PI >YZ 
15170 IF ZA<0 AND YA )0 THEN A=A-180 >AD 
15172 IF ZA <0 AND YA<0 THEN A=A+180 >AJ 
15174 IF ZA <0 AND YA S THEN AS80 >ZD 
15180 X=BiSlN(AiPI/180):Y-B»C0S(AiPI/180) >KF 
15240 XES13*X»200/AN >PK 
15250 YE=200+Y«200/AN >PH 
15255 IF HE - 1 THEN 15999 >RB 
15260 IF J=AV(I) THEN PLOT XE.YE >ZV 
15270 IF J>AV(I) THEN DRAW XE.YE, 1,0 )CE 
15999 RETURN >PF 

16999 RETURN >PG 

17000 REM Changer de drive >UZ 

17999 RETURN >PH 

18000 REM charger eleaenta >UH 
18999 RETURN >PJ 
23000 REM TRACE QUADRILLAGE XOY >AI 
23999 RETURN >PE 
27000 REM REPRESENTER UN OBJET >ZR 
27005 CLS.-PARCACHS: INTERACTIONS >DH 
27010 PRINT'REPRESENTER UN OBJET":PRINT >LY 



27015 PRlNT'Parties cachées eliiinees ?":GQSUB 65020:1F >AM 
C=15 THEN PARCACH=1 ELSE 27020 

27017 PRINT:PRINT'lnteraction facettes ?":GOSUB 65020:1 >ZK 



F C=15 THEN INTERACTIONS ELSE INTERACTIONS 

27020 PRINT:PRINT"a-0b1et en ■eioire' >NN 

27030 PRlNT"b-Dessin par eleients* >UI 

27040 PRINT'c-Dessin par bloc*:PRINT )LC 

27050 GOSUB 65000 : PRINT : CD=C )XQ 

27052 IF PARCACHM THEN CHAIN'SUPERDES >HB 

27055 1F C = 1 AND L <> -1 THEN 27140 >YW 

27060 IF C=l THEN GOSUB 30000 :E=0: GOTO 27140 >KB 



27070 IF C ■ 3 THEN GOSUB 31000:CLS: PR 1 NT'CQNTENU BLOC >JN 
:.':PRINT: FOR K = 0 TO E : PRINT EL»(K),TYPE»(TYPE(K) 

1:F0B TTS TO 100 :NEXT n : NEXT K : FOR TT - 0 TO 100 
: NEXT H :GOT0 27140 

27080 INPUT"Noibre d'eleients (1 par défaut) ";E* >'MI 
40 



27082 1F E$=" THEN ES >PX 

27084 IF E»<>"" THEN E=VAL(E*)-1 >YR 

27090 CLS : PRINT"SAISIE ELEMENTS*: PRINT >L0 

27100 FOR K - 0 TO E )LH 

27110 PRINT'Eleient M( H >XK 

27120 INPUT EL» (K) >MW 

27130 NFJT K >BJ 

27140 IF AN = 0 THEN 27160 >QN 

27160 CLS : PRINT"a-SaIsie point de vue au clavier" >GN 
27170 PRlNT'b-Saisie écran (»)":PR1NT:G0SUB 65000:CSA1S >HA 
IES 

27180 IF CSAISIE = 2 THEN 27310 >WL 

27190 PRINT:PRINT"Coordonnees observateur :":PR1NT >HK 

27200 INPUT"X=";IM >NM 

27210 IMPUT"Y=";TM >NQ 

27220 INPUT'Z=";ZM:PB:NT >VB 

27230 PRlNT"Coordonnees point vise :":PRINT >YN 

27240 INPUT"IG=";XG >PZ 

27250 1NPUT"YG=';YG >PC 

27260 INPUT'ZG=";ZG:PRINT >«V 

27270 PBINT'Ouverture angulaire" >KG 

27280 INPUT"20 degrés par défaut •;AJK >NB 

27285 IF AN»="" THEN AN = 20 : GOTO 27350 >DH 

27290 AN : VAL(AN*> :GQTO 27350 >UL 

27310 REM >GA 

27320 REM SITUER DECOR >RX 

27325 CLS >GE 

27330 GOSUB 35000 >LZ 

27340 GOSUB 61000 >LZ 

27341 XGO=XG:YGO=YG:ZGO=ZG >XF 

27342 XG= XGO * (XGE - 300) * R / 30 >UF 

27343 YG= YGO + (YGE - 200) » R / 30 >YJ 

27344 ÏH= XGO * (XME 3001 » R I 30 m 

27345 YH= YGO + (YME - 200) i R / 30 >«Z 

27346 ZG= ZGO ♦ (ZGE -200) » R /30 >UD 

27347 ZM= ZGO ♦ (ZME -200) » R /30 >UT 
27350 CLS : GOSUB 7000 >PJ 
27360 ON CD GOSUB 12000,11000,10000 >AL 
27390 C»=INKEY»:IF C»="" THEN SOUND 1,300:GOTO 27390 >UR 
27400 IF CM' " THEN CALL &A000 : PS E NTI8 : PS 1 NTI8 >PP 

27998 CDS >LJ 

27999 RETURN >PJ 

28000 REM Charger bloc >QB 
28999 RETURN >PK 

30000 REM oblet en uiolre ? >UH 

30001 Fl=l >JG 



30002 1F L <> -1 AND- EL* THEN PRlNT"Oblet sans n >GT 

oi présent en ■eioire":PRINT:PRiNT"Qn garde ?":G0SUB 65 
020: IF C = 15 THEN 30999 

30010 IF EL» <> " THEN PRINT'Oblet résident ";EL» >DZ 
:PRlNT:PRlNT"On garde ?•: GOSUB 65020 
30020 IF EL» O " AND C = 15 THEN 30999 >BE 
30030 PRINT'Pas d'oblet en ieioire. n :PRINT >VG 
30035 PRINT'Hettre disquette obiets dans le lecteur. ":G )ET 
OSUB 65020 

30040 GOSUB 5005 >DB 

30998 PRlNT«Mettre disquette logiciel dans lecteur. ":G0 >DZ 
SUB 65020 

30999 RETURN >PC 



jiooo m bloc en «mm > >w 

31896 imiW -PL- 

32000 R£H SAISIE fCBAK >BA 

32909 IFTUfeM >PE 

33000 BOI TBACE QUADE ILLACE 102 >AZ 

33008 BETUBN >PF 

3AO00 ICI SITUE! DECOB >BP 

3*999 BETUBN >PC 

3SO00 101 SITUEE OECOB )8S 

36909 mm >fk 

36000 ROI TBACH CEO II >QK 

369Ô9 IETURN >PJ 

37000 BDI Eff AL'AGE CBOII >TK 

37999 BETUBN >PK 

36000 BOI SAISIE NUHEBIQUE )WV 

36809 BETU8N ,QA 

30000 «01 SITUES DECOS ive eK^tloa >FI 

39009 IETDI* m 

40099 BETUBN >P0 

41000 SOI EFFACA6E LIGNE DU HAUT >ZT 

41999 BETUBN ,PE 

44000 SOI CjIcuI de CC et de BE ,M 

44909 BETU8H >PH 

47000 101 permutation cvciique Mfet ;GH 

47809 wm m 

59000 SOI SAISIE POINT SUS ECBAN >AK 



59990 ÏETURN 


vntv 

>8D 


btOOO ÏEB SAISIE POIIn SUI ELlAH 


>AC 


6 un irnjin 


>PC 


coma on riftor 
oZtMJ Itïl CADRE 




£ 0 A A A n f 

b/OlO CLS 


>FE 


6201b BORDEJi 14 


>TC 


CTAIA Dl A¥ A A 

6*020 PLOT 0,0 


>LH 


62Û30 DRAW 6i9,0.3 


>u 


62040 DRAW 639.39B»3 


>» 


6206Û D9AM 0,389.3 


>U 


bA.UbQ LWAw 0,0.3 


>ZA 


WéVwwCT 1 W9ftf9 


>Ptl 


bJUOU Khll rmaee en rluD. 


>TR 


> .m m ,'lii ii.iHU.il « 




o4000 REA Pasiage sur H0D1 


•vu 


t: »rvrii\ rut iti.ur.rt I 

b4390 CHA IN'HUDl* 


'Kl 


6SÛÛÛ &EH Sêif iê ciractere 


>*B 


bt>00G PtINT 


>□> 


6S010 PklNT^Votr e ctou :• 


>2f 


rr A'iA r • «a m ▲ nu/ru* ir » a. M , •>#-»•#»» 

65020 CM" - :C$-IliKEYI;IF (:♦=•• THEN BS02Û 


>FL 


65030 C-A5C(Clr 


>ÏF 


6S035 IF C-1J 08 32 THEN C*27:C0T0 6S535 




ooU4U l r L-»yb I KfcJI L-4- ybrUUTU QjftJo 




6S0&0 IF C<96 TKEN C=C-64 


>su 


6S060 SOUND 1,20,1 




6SS3S IFTURJI 
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M0D1 



1 REM (supenHODl leçon JAN 88 ? >ZL 

2 IF FDM THEN 230 >LK 

3 FD=t: L = - l >XC 

4 DIH XT(35,12),YT(35,12),ZT(35.12),N(35),AV<35),EL*(19 )FT 
),TYPE(19),GI(19).GY(19>,GZ(19).RE(19),XE(12),YEU2).X£ 
BIS(12),YEB1S(12),ST*(19) 

5 TYPE*(l)="fil-de-fer":TYPE*(2)="i!raffiti":TYPE*(3);"c >VF 
oque":TYPE*(4)="solide" 

10 CLS >MB 

15 PRINT'HENU PH I HC1 PAL" :PR IMT >BH 

20 PRIHT"a-Creer un objet" >AE 

30 PRINFb-Coipleter oblet ou bloc" >NZ 

40 PRINT'c-Stocker uo objet" >DX 

50 PRINT-d-Charjer un oblet" >DQ 

60 PRlNT'e-Gestion de blocs d'objets" >QL 

70 P8 ! NT* f -Gestion du catalogue" >JH 

80 PRINT-g Manipuler objet ou bloc" >NM 

90 PRlNT"h-Fusions diverses" >EX 

100 PRlNTi-Exaiiner oblet" >CA 

110 PRIHT"iFichier oblets standards" >RM 

120 PRINT"k-Voir" >PG 

130 PRINFM-Representer un objet" >LP 

14U PRINT"i-Plan trois vues" >b'J 

1L0 PRlNTVÏnvcrSL'r objet uu bloc" ;NU 

160 PRINT"o-Chan«er type obiet ou bloc" >TG 

170 PRINTp-» ~ >UB 

180 PRINT"q-Quitter" >U(C 

190 1F BL*<>"" THEN L0CATE 22.17:PRINT"Bloc résident" :L >GM 
OCATE 22,19:PRINT BU 

192 LOCATE 25.2 : PR 1 NT"SUPERAMSTRAD-3D" >JF 

193 LOCATE 29.4 : Pli [ NT CHR*U64>;" J. P. PETIT" >NB 

195 IF EL$ <> "" THEN LOCATE 22, 21 : PR I NT"0b iet résident >KC 
»:L0CATE 22.23:PRINT EL* 

196 'LOCATE 32. !0:PRlNT"Drive ";DRIUE* )TG 

197 IF LO-1 THEN LOCATE 31,23:PRINT L*ls* ch.":L0CATE >yG 
22,25:PRINT TYPE! 

198 LOCATE 3,22 >YC 
200 GOSUB 65000 >WH 
210 IF C=17 THEN: END >NT 
215 IF C=12 THEN CHAIN" DES >UZ 
220 IF C<1 OR C>17 THEN 10 )RL 
230 ON C GOSUB 9000. 13000.8000.5000.21000. 2200Û.6400Û.6 )PU 
4000.10000.20000 

999 IERA."*.bak":GOT0 10 >UK 

5000 'CHARGER OBJET >XH 

5005 CLS:PRINT"Charser objet (disquette objet !...)":PR )TU 
INT 

5007 INPUT"Noi de l'oblet ";EL*(K):IF LEN (EL*IK))>8 TH >FF 
EN PRINT"8 caractères seulement, pressez <Return)":GÛSUB 

65020:GOTO 5000 

5010 ELMEL*(K):PRlNT"Je charge ";EL*{IO >12 
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5020 OPENIN EL*(K):EL*=EL*(K) >XC 
5030 INPUT I9.TYPE(K),GX{K).GY(K).GZ(K),RE(K).L >RJ 
5040 FOR I * 0 TO L >FC 
5050 INPUT I9,N(I),AV(I) >TD 
5060 FOR J s 0 TO Nil) >HC 
5070 INPUT I9.XT(1,J).YT(1,J),ZT(I,J) >FE 
5080 NEIT J:NEXT I >HV 
5090 CLOSEIN >HE 
5095 TYPE*-TYPE*(TYPE(K) ) :TYPE=TYPE(K) >KC 
5999 RETURN )HF 

8000 1 STOCKER OBJET >YA 

8001 CLS:PRINT"STOCKER UN OBJET (disquette oblet !..)": >YY 
PRINT:IF L=-l THEN SOUND l,30,20:PRINT"Pas d'objet resi 
dent !":FQR TT=0 TO 200 :NEXT:: GOTO 8999 

8002 INPuT'Noi de l'objet ";EL*(I0:1F LEN (EL*(K))>8 TH >I/N 
EN PRINT:PRINT"8 caractères seuleient, pressez <return>* 

: GOSUB 65020: GOTO 8000 

8007 EL$=EL*(K) >YB 

8008 CLS:PRINT"Type de l'objet":PRINT:PRINT"a-Fil-de-fe ;AK 
r":PRINT"b-Graffiti":PRlNT"c-Coque":PRlNT"d-Solide":GÛS 

UB 65000: TYPE(K)=C:TYPE*=TYPE*(C) 

8010 PRINTVJe stocke l'objet ";EL*(K>;" ";T¥PE*(TYPEIK) >HV 
) 

8020 GOSUB 44000 )DE 
8022 MF TYPE < 10=4 THEN GOSUB 38000 
8025 OPENOUT EL*(K) 

8030 PR1NT I9,TYPE(K),GX(K),GY(K),GZ(K).RE(K),L 
8040 FOR I s 0 TO L 
8050 PRINT I9.N(I),AV(I) 
8060 FOR J -- 0 TO N(l) 
8070 PRINT I9,XT(I.J).YT(I.J),ZT(I.J) 
8080 NEIT J : NEIT 1 
8090 CLOSEOUT 

8100 EL*=EL*(K) >XF 

8999 RETURN >HJ 

9000 'CREER UN OBJET >YB 
9005 L^-1:K=KU:EL*(K)="":EL*="\TYPE*="" >H2 
9010 CLS:PRINT"CREER OU COMPLETER UN OBJET":PRINT:PRINT >RN 
"a-Chaine par chaine" 

9020 PRINT"b-Objet de révolution* >KX 
9040 PRINT"c-Travailler sur objet standard" >AB 
9050 PRlNT"d-Prisie" >TZ 
9060 PRINT'e-Cercle" >TP 
9070 PRINT"f-Arc de cercle" >AN 
9090 GOSUB 65000 >EF 
9095 C1=C >DK 
9100 1F C>6 OR C =-51 THEN 9999 >VT 
9102 IF C<0 THEN 9000 )N£ 
9104 CREAT I ON =C >LA 
9106 IF TYPE(K)O0 THEN TYPE=TYPE(K> : PRINT: PRlNT"L*ob je >JP 
t est de type "; TYPE* ( TYPE (K)): FOR TT=0 TO 1000:NEIT n 
:G0TO 9110 

9108 CLS:PRINT"Def lnlr le type de l'ob1et:":PRINT:PRINT >ED 
"a-FII-de-fer'^RINT'b-Graffiti'.-PRINT'c-Coque'îPRINT'd 
-Solide": GOSUB 65000 : TYPE ( K ) =C : TYPE» =TYPE* ( TYPE ( K ) ) : TYP 
E=TYPE(K) 

9109 1F CREAT10NM AND CREATI0N<7 AND TYPEOl AND TYPE< >CU 
>2 THEN CHAIN"H0D1BIS 

9110 IF CREAT 1 0N<3 THEN 9500 >*? 



>YE 



>RJ 



>HF 

)FE 



>ZH 



9120 If TYPFM THE* 9500 >Ru 
9S0O m CREATION GÛSUB 260ÛQ, jaOOO.tlOOO.SeOOO. jiûOÛ.33 'AH 



/HK 

■<LÙ 
>HE 
>UD 



>IR 
>HW 

>AP 



.M. 
>0K 
>UN 
>UB 



2B000 'CREER CHAINES AU CLAVIER 
26010 GOSUfl 60000 

26017 IF CE = 2 THEN GOSUB UOO0:G0TO 26999 
26020 L-L»l:IF LH2 THEN CLSrPBlMT'TroD de daines.. 
SOIMD l.20:FUR TT=Q TO t000:NEXT TTcCOTO 26999 
26025 OS: i»KINT*SAI5IE CHAIRES AU CUVIER*:PB1NT 
26030 IMPUT*Noitire de segtents ";N(LI 
26036 PS UT: PEINT" *rele S virtuelles en début de chaîne. 
•:PIIRT: INWT'Leur nombre *;AVt :PB IMT: IF M-" THEN AV 
ILI=0 ELSE Aïa>M!AUAVn 
26040 FOR J=B 70 N(Li 
26050 PRINT-Point nuttro ':M 
26060 IWWIT^iïTlL.Jl 
26070 INPUT'ÏT^îïTfUJI 
26060 INPUT"ZT=';ZTILJ) 
26090 NEIT / 

26100 rtlir One erreur '•jLC ZOrCOSOR 660 >A2 

20:1F C » 15 THEN 25025 

26130 PR1NT- Une autre chaîne ?":U> 26: GÛSUB 65 m 

020: IF C - 15 THEN 26010 

26999 RETU8N >PH 
4*000 'CALCUL CC ET RE M 
»401Û G1^0:<iï=0:G2=Û:H=0:«E<IC)=0 >6P 
44020 FOR UO TO L: FOR J=0 TU Ml II . U< 

44025 N^N*| /TE 
44030 Gl'CÏtlTil.Jt m 
44040 CT-CY+YTU.J) .PF 
4405O G2»GZ»ZT<U> >Ptf 
44060 NEJT J:NEXT I >NG 
44070 GIIK1=GX/N >LZ 
44060 GTIK^GV/N )LC 
44090 GZilO-GZ/N >if 
44100 FOR 1-0 TO L:FOR J=0 TO N(l) >ZP 
«41)0 R:SOB l<IT(l,JhCT,IKU»IXTl I.JlGXtlOlMtTUJ) -6 >HJ 

T(Knimn.J)-ci»)i«(nii.j)-cz(MiMZru.j)-aiKi)i 

44120 IF REOtKR THEN ftE(K)-fi ;RJ 

44130 NEIT JtNEIT I m- 

**S89 RETURN ;PH 

60000 'TYPE OE SAISIE ?0B 

60006 SE»0 >U 

60010 CL» î PIlNTDEFlNlTIÛN TïFÊ Ut SAISIE*:PRIHT >ÎT 

uOO PRINT'j Calait dd.iKi ip ui JlUuU* WL 
60030 PlINT'b-Salsle écran (Contour wlvional planl'iOl >JN 

5ub esoootœ»c 

-Bt 
)PF 
>DG 

>pg 

>ÏF 

>GH 
>CH 

m 

>LZ 
>NC 



6OO40 IF a<>2 THEN CE=l:CQT0 60999 
60999 BETUfiN 

6S000 'SAISIE DE CARACTERE 
65010 PHINT:PBINT"Vûtre choli :" 
65020 Cf":CI=INKEÏI:IF Cl = " THEH 
65030 C'ASCIC»! 

65035 1F C-13 OR C= 32 THEN C-27iC0T0 
65040 IF C>96 THE» C^-C 96:C0T0 65060 
65050 IF Ct96 THEN feÇ-t* 
65060 SOUND 1.20.5 
65535 KFTUBN 




i 7 



Plus 

fewii 




:ca.* - 
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DAT A 2 



1 'iimmiiiimmitiu >p^ 

2 '• création « >FB 

3 'i fichier bin t >FC 

4 «• aniution « >FD 

5 'i du jeu i >FE 

6 'iiimifiiimiiifiiiii >ff 

7 'TAPEZ LE PROGRAMME PUIS •RIW >FG 

8 'LA SAUVEGARDE SE FERA AUTOMATIQUEMENT >FH 

9 'SOUS LE NOM DE "ATOH.BIN" >FJ 



10 A=W3SC:F=tr66D0:L=100:HHILE A<=F:F0R A=A TO A<15:REA >TU 
D C».'K=VALCI t , *C»):S=S+K*6553e«<S+K>32767):IF A<=F THEN 
POKE A,K 

20 NEIT:READ D$:T^ALCl'+D») : IF TOS THEN PRINT CHRK7 >HH 

);"Erreur ligne'iLrEND ELSE L=L*5:«END 

30 SAVE , ATOM.BIN",B,25500,800 >fl) 

100 DATA 3A,BC,61,FE.00,C2.5D,65.3A,B1,61,FE.00.28,08,F >EV 

E,0751 

105 DATA 0t,CA,F6,64,C3,B5,64,CD,24,BB,2A,A8.61,CD,C3,6 >EN 
3,1024 

110 DATA 22,A8,61,C3,25,65,C9,E6,0F,17,5F,16,00.DD,21,D >EP 

a, les 

115 DATA 63,D0,19.DD,5E,0O,DD,56,0l.D5.DO,El,DD.E9,A1.6 )FH 
4, ÎFU 

120 DATA 1B,64,FA,63,A1,64,38,64,A2.64,A1,64,38.64,6D,6 >ET 
4,2809 

125 DATA E3,64.A1,64.6D.64.A1,64,FA.63,IB,64.AI,64.3A.A )EL 
E,2EC4 

130 DATA 61,FE,01,28.0D,ll,F4.3E,ED,53.AC,61.3E,09,32,B >EP 
2,3514 

135 DATA 61,C9,U,C4,44,ED.53,AC,61.3E.09.32.B2.6t.C9.3 )EA 
A.3C33 

140 DATA AE,61, FE,01, 28,09,11, 50,43,ED,53,AC,61. 18,07,1 >DY 
1,4193 

145 DATA 80.3D,E»,53,AC,61.3E,01,32,BC.fil,C9.3E. 06,32. B >EN 
2.481C 

150 DATA 61,3E,01,32,AE,61,3A,AA,61,FE,01,C8,3D,32,AA,6 >ER 
1,4E83 

155 DATA 2B,3A,AF,61,FE,01,28,0D,11,DC,41,ED,53,AC,61,3 >FE 
E,54E5 

160 DATA 01,32,AF,61,C9,11,68,40,ED,53,AC,61,97,32,AF,6 >EZ 
1,5BD0 

165 DATA C9,3E,06,32,B2,61,97,32,AE,61,3A,AA,61,FE,44,C >EU 
8,6349 

170 DATA 3C,32,AA,61,23,3A,AB,61,FE,01,26,OD,U,0C,3C,E >EE 
D,68A5 

175 DATA 53,AC,61,3E,01,32,AB,61,C9,11,98,3A,ED.53,AC,6 >ER 

uwn 

180 DATA 97,32,AB,61,C9,C9,3A,AA,61,FE,0F,D8,11,80,30,E >FK 

D. 77C7 

185 DATA 53,AC,61,3E,O2,32,Bl,61,C9,3A,B0,61,FE,0F,28,0 >EM 

E. 7E02 

190 DATA 3C,32,B0,61,2A,A8,61,2B,22,A8,61,C3,25,65,97,3 >DH 
2,8420 



195 DATA Bl. 61. 32,80,61, 11. SB, 40,ED, 53, AC,61.3A,AA,61,D >EB 
6,8106 

200 DATA 0F,32,AA,61,C3,25,65,3A,AA,61,FE,35,D0,ll,50,4 >EZ 
3,8211 

205 DATA ED,53,AC,61,3E,01, 32,81, 61, C9,3A,B0,61,FE,0F,2 >EV 
8,9934 

210 DATA OE,3C,32,B0,61,2A,A8,6t,23,22,A8,61,C3,25,65,9 >DH 
7.9F26 

215 DATA 32,Bl,61,32,B0,6i,U,98,3A,ED,53,AC,61,3A,AA,6 >EB 
1,A622 

220 DATA 06.0F,80,32,AA.61,C3.25,65,ED,5B,A8,61,2A,AC,6 >ER 

1. ACC9 

225 DATA 3E,1F,47,C5,D5,3E,OC,4F,06,00,ED,BO,EB.E1.CD,2 >FV 
8,1402 

230 DATA BC,EB,C1,10,EE,C9,3A,AA,61,21,40,C6,85,6F,3A,B >FA 

2. BC7D 

235 DATA 61,47,7E,FE,00,28,04,23, 10,FB,C9,3E,01,32,B3,6 >EC 
1.C246 

240 DATA C9,3A,BC,61,FE,08,2B,10,3C,32,BC,61,2A,A8,61,C >FK 
D.C92F 

245 DATA 29,BC,22,A8,61,C3,25,65,21,7A,65,22,A2,63,3A,B >EV 

C. CFA9 

250 DATA 61,FE,01,28,10,3D,32,BC,61,2A,A8,61,CD,26,BC,2 >ET 
2,0601 

255 DATA A8,61,C3,25,65,21,5D,65,22, A2.63.3A, AE,61,FE,0 >EK 
1.DC79 

260 DATA 28,09, 11, 98,3A,ED,53,AC,61, 18,07,11, 68,40,ED,5 >EC 

3. E1F2 

265 DATA AC,61,97,32,BC,61,C3,25,65,00,00,00.00,00,00,0 >DG 
0.E632 

270 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00.00,00,0 >BJ 
0.E632 

275 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00.00.0 >BP 
0.E632 

280 DATA 00,00,00,00,00,00.00.00,00,00,00.00.00,00,00,0 >BK 
0.E632 

285 DATA 00,00,00,00,00,00,00,00,ED,5B,B4,61,2A,B6,61,3 >DA 
A.EAOA 

290 DATA BA,61,47,C5,D5,3A,BB,61,4F,06,00,ED,BO,EB.E1,C >FK 

D. F2E7 

295 DATA 26,BC,EB,C1,10,ED,C9,3A,BF,61,FE,0A,28,27,FE.4 >FZ 
6.FB30 

300 DATA 28,2F,3A,BF,61,3C,32,BF,61,2A,BD,61,23,22,BD,6 >EF 
1,0111 

305 DATA 22,B4,61,3E,08,32,BA,61,32,BB.61,11,96,4B,ED,5 >EK 
3,0764 

310 DATA B6,61,C3,F4,65,3E.23,32,28.66,3E,3C,32,21.66,1 >DR 
0,0003 

315 DATA D1.3E,2B,32,2B,66,3E.3D,32.21.66,18.C5,00.00,0 >DQ 
0,U0E 

320 DATA 00,00,00,00, CD.09,BB.FE,F0,CA,85,66,FE,F1,CA,9 >FA 
1,198C 

325 DATA 66,FE,F2.CA.9D.66.FE,F3.CA, A9,66.FE,32,CA,B5,6 >FG 
6,248E 

330 DATA FE.31.CA,C1.66,97.C3,25.65,2A,A8,61,CD,1B,64.2 >EU 
2.2C33 
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33S DATA A8,61,C3,25.65,2A,A8.61,C0,FA,63,22,A8,61,C3,2 >EP 
5,33F0 

340 DATA 65,2A,A8,61.CD,38,64,22,A8,61,C3.25.65,2A.A8,6 >EH 
1.3AA5 

345 DATA CD,6D,64,22,A8,61,C3,25,65,2A,AB,61.CD,A2.64,2 )EF 
2.41E3 

350 DATA A8,61,C3,25,65.2A,A8,61,CD,E3,64,22,A8,6l,C3,2 >EH 
5,4993 

355 DATA 65,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0 >CD 
0.49F8 



JIIEIU 



34 CLEAB:HFJWRY 16000 :L0AD"DATASPRI", 15000:HEIWRT 15000 >DH 
1 

35 b»=CHfi»(22)+CHfi»(i):c$=CK8$(22)tCHfi«(0):v 1 =5:U[HD0W >NQ 
11,1,20,1,21 

40 POKE 2S023,10:P0KE 25021. IFA:P0KE 25022, &C5 >HD 
50 GOSUB 9100 >HG 
60 a*=CHfiJ (32) iDATA 6,21,7,21,12,21,13,21,14,21,6,14,7, )UH 
14,14,14.15,14,16,14 

65 BESTOBE 6O:F0B t=l TO 10:BEAD a,b:LOCATE a,b:PBINT a >HE 
*:KFJT 

68 DATA 6,21,242,7,21,242,12,21,242,13,21,242,14,21,242 >DQ 
,6,21,243,7,21,243,12,21,243,13,21,243,14,21,243,6,21,2 

44, 7, 21 , 244, 12, 21 , 244, 13, 21 , 244, 14, 21 , 244: BESTOBE 68 

69 PBIKT b»:col=13:co=0 >TF 

70 FOB t«l TO 5:PEN cohBEAD a,b,c:LOCATE a,b:PBINT CHB >NB 
l(c):NEIT t:co=co+l:col=col+l:IF co<>3 THEN 7Û:ELSE PB1 

NT c* 

75 PEN 8:G0SUB 9240:G0SUB 9069:' aff sc+vi >ZB 
120 GOSUB 8300: ni v=l. -GOSUB 9080 >ZA 
140 GOSUB 9370 >QF 
150 IF f f =1 THEN GOSUB 200:ELSE b=b+l:IF b=50 THEH f f =1 >PN 
:b=0: GOSUB 200 

160 1F f 1=1 THEH GOSUB 210:ELSE c=c+l:lF c=70 THEN (1=1 )PC 
:c=0:GOSUB 210 

170 d=d4l:IF d=50 THEN HOVE 352,78:0RAU 384,78,13:G0SUB >ÏG 
9122.-ELSE 1F d=100 THEN HOVE 352,78:DBAV 3â4. 7B.O:d=0 

171 GOSUB 9420 )QF 
180 IF PEEK (25002) =68 AND flag=2 THEN GOSUB 9310:GÛT0 3 >UF 
00:ELSE GOSUB 9480 

182 ts=PEEK(25002)-PEEK(25008):GOSUB 9450 )JG 

183 ts=PEEK(25002)*PEEK(25008):GOSUB 9450 >JF 

185 CALL 16613: IF PEEK ( 25023 )=PEEK( 25002) AND PEEK(2502 >WU 
0X6 THEN GOSUB 9030 

186 IF c>=66 THEN SOUND l,30,2,15:ELSE IF b>46 THEN SOU >KV 
ND 1,50,2,15 

190 GOTO 140 >ZB 
200 ad=ttB6:add=U)D:as=t(D6:ass^4A:l=8:h=8:G0SUB 9020:z= >TX 
«♦Il 'F z=15 THEN ff=0:z=0:PEN 0:LOCATE 6,20:PRINT' ":L 
OCATE 6,18:PEINT" «îPEN 1:BETUBN:ELSE RETUBN 
"210 ad=*CF:add=U>0:as=U)6:asssa4A:G0SUB 9020:xl=ïlM:IF >TZ 
il=10 THEN fl=0:»t=0:PEN OrLOCATE 12,20:PB]NT" ':LOCA 
TE 12,19:PRINT" VPEN 1:BETUBN:ELSE RETUBN 



250 'nlv 2 )g H 

300 GOSUB 9320 > PJ 

301 IF PEEK(25002)=68 AND flag=0 THEN ad=i35:add=*CA:G0 >n 
SUB 9790:f lag=l 

302 IF flag=2 AND PEEK (25002) =68 THEN ad=44F:add=tCA:G0 >TQ 
SUB 9790: f la«=3 

303 IF PEEK(25020)=8 AND flag=l AND PEEK(25002)>=3 AND >»U 
PEEK(25002><=6 THEN GOSUB 9121:G0SUB 9060: f Iag=2:as=i56 
:G0SUB 9020 

304 IF PEEK(25020)=B AND flag=2 AND PEEK ( 25002 )> =30 AND >ZC 
PEEK ( 25002 )<= 32 THEN GOSUB 9121:G0SUB 9060:f lag=3:as=i 

56: GOSUB 9020 

305 IF PEEK(25020)=8 AND flag=3 AND PEEK(25002)>=30 AN >AB 
D PEEK(25002)<=33 THEH GOSUB 9121:G0SUB 9060:as=l>56:GOS 

UB 9020:flag=4 

307 IF flag=4 AND PEEK (25002) =68 THEN GOSUB 9330:GOTO 3 >ZJ 
40 

310 GOSUB 9370 > QE 
320 d=d4l:IF d=50 THEN HOVE 416, 190:D8AW 460,190,13:S0U >PU 
ND 4.300,2, 12:ELSE IF d=l50 THEN HOVE 416. 190:DBAU 460. 
190,0:d=0 

330 GOTO 301 >y G 
335 'nlv 3 >TB 
340 GOSUB 9340: POKE fc647A,5B >vg 
350 GOSUB 9380 > QK 

355 GOSUB 9390 )RF 

356 IF flag=2 THEN 380 >pi 
361 GOSUB 9400 > QE 
380 CALL 25500: POKE 25009.0 >UZ 

385 IF (lag=2 AND PEEK(25002)=5B THEN GOTO 400 >Ltf 

386 IF PEEK(25020)=8 AND PEEK ( 25002 )> 18 AND PEEK(25002) >FR 
<22 AND f lag=l THEN flag=2:INK 3.15:as=*56:G0SUB 9470:G 
OSUB 9020:ad=i36:add=tCl:as=k8:ass=l ( 52:l=24:h=9:SOUND 1 
,0,0,0. -GOSUB 9020 

387 IF PEEK(25002)=58 THEN INK 3,26:ad=415:add=U>0:G0SU >PH 
B 9790:f lag=l 

390 GOTO 355 >ab 
400 POKE S.6A7A, 68 ;ad=5:add=i,D0: GOSUB 9790 :ad=«<15 .-GOSUB >QA 
9020 :AD=43Û: GOSUB 9020: ta (0 ) = 1 : ta ! 1 ) = 1 : ta ( 2) = 1 
405 CALL 25500: IF PEEK(25002»3 AND PEEK(25002)<6 AND P >EN 
EEK(25020)=B AND ta(O)<>0 THEN ad=5:as=t56:G0SUB 9470:t 
a(0)=0:GOSUB 9020 

410 IF PEEK(25002)>18 AND PEEK(25002)<22 AND PEEK(25020 >TN 
)=8 AND ta(l)O0 THEN ad=il5:as=l56:G0SUB 9470:ta(l)=0: 
GOSUB 9020 

420 IF PEEK(25002)>45 AND PEEK(25002)<48 AND PEEK(25020 >TI 
)=6 AND ta (2)00 THEN ad=130:as=li56:G0SUB 9470:ta(2)=0: 
GOSUB 9020 

425 IF ta(û)=0 AND ta(l)=0 AND ta(2)=0 AND PEEK(25002)= >DN 
68 THEN GOSUB 9062:GOTO 450 

430 GOTO 405 > ZC 

449 'TAB 2 >TH 

450 GOSUB 9360:G0SUB 9080:GOSUB 91OO:G0SUfi 9300:NIV=1 >ÏQ 

451 ds=5:F0R t=l TO Z.-ad^Jd-OHatadd^has^tAE^ss^: >NH 
l=8:h=3:G0SUB 9O20:ds=ds+15:NEIT:ds=5:F0R t=l TO 3sad=l. 

0+ da : add =fcF2 : a 3 =WE : aa a = WC : 1 =8 : h= 3 : GOSUB 9020 : ds =ds H 0 



sien 

455 DATA 10,21,11,21,12,21,13,21,5,14,6,14,11,14.12.14, >WI 
13, 14, 14, 14: RESTORE 455: FOR t*l TO 10 : BEAD a, b: LOCATE a 
,b:PBIHT a*:NEXT 

460 POKE 25000, fchPOKE 25001, fcCDiPOKE 25002, 1 : POKE 2500 >QH 
4,k98:P0KE 25005, MA: POKE 25003,0:POIŒ fc6546,U0:P0KE I 
6547,I<C6:P0KE ti647A,6e 

461 'tb 1 >TB 

465 GOSUB 9370 >BF 

466 ad=UT:add=»^:as=aœ:ass=MC:l=6:h=4:G0SUB 9020 >YT 

467 1*4+1: IF d=10 THEN HOVE 312,78:DSAU 384,78, 13:G0SUB >ID 
9122:ELSE IF d=100 THEN nOVE 312,78:DRAU 384,78,0:d=0 

468 IF ff=l THEN GOSUB 500:ELSE b=b*l: IF b=50 THEN (M >HF 
tb*0*il«Q 

469 IF PEEK(25002)=68 AND f lag=0 THEN ad=&79:add=«X:G0 >TA 
SUB 9790: f lapl 

470 IF PEEK(25020)=8 AND flapi AND PEEK(25002)>21 AND >UN 
PEEK<25002)<25 THEN GOSUB 9470:f lap2:ad=«<79:add=tCC:as 
=&S6:ass=ti4B:l=8:h=8:G0SUB 9020:ELSE 1F PEEK(25002)=68 

AND f U«=2 THEN GOSUB 9310:G0T0 510 

471 IF PEEK(25006)=1 THEN ts=PEEK(25002)-PEEK(25008):IF >Afi 
ts>10 AND ts<18 AND tt*l THEN GOSUB 9030 

472 IF PEEK(25006)=0 THFJi ts=PEEK< 25002 )♦ PEEK ( 25008) :1F >AZ 
ti>10 AND ts<18 AND f f =1 THEN GOSUB 9030 

480 GOTO 465 >AD 
500 HOVE 132,98:D8A« 132,130,3:«l=iM:IF il>=10 THEN H >VK 
OVE 132,98:DBAU 132, 130, 0:f f =0:RETURN:EL5E RETUBN 
505 ' tb 2 >TA 
510 GOSUB 9320 >QB 
520 GOSUB 9370 >QH 

530 IF ff =1 THEN GOSUB 600:ELSE b^b+l:IF b=50 THEN f f=l >HW 
:b=0:il=0 

531 d=d*l:IF d=50 THEN HOVE 350,190:DBAU 410,190,13:GOS >NV 
UB 9122: ELSE IF d=100 THEN HOVE 350,190:DRA« 410,190,0: 
d=0:FF=O 

532 1F PEEK(25002)>2 AND PEEK125002X7 AND f f =1 THEN GO >EU 
SUB 9030:ELSE IF PEEK( 25002) >17 AND PEEK( 25002 X 22 AND 
ffM THEN GOSUB 9030 

533 IF PEEK(25002)>34 AND PEEK(25002)<41 AND ff=i THEN >JY 
GOSUB 9030: ELSE 1F PEEK(25002)>44 AND PEEX( 25002X51 AN 

D f f =1 THEN GOSUB 9030 

534 IF PEEK(25002)>54 AND PEEK( 25002X59 AND f f =1 THEN >GL 
GOSUB 9030 

535 IF PEEK(25002)=68 AND flapO THEN ad=lt3A:add=fcCA:GQ >TU 
SUB 9790: flapi 

536 IF PEEK(25020)=8 AND flapi AND PEEK(25002)>7 AND P >ZK 
EEK(25002)<11 THEN GOSUB 9470 :flap2: as = L56: GOSUB 9020 

537 IF PEEK<25002)=68 AND flap2 THEN GOSUB 9330:G0T0 6 >ZA 
15 

540 GOTO 520 >ZC 

600 co=3:G0SUB 601til=il*l:IF il>=5 THEN co=0:ff=0:G0SU >JN 
B 601 :BETURN: ELSE RETURN 

601 HOVE 52,260:DRAW 52,210,co:H0VE 170, 260: DRAW 170,21 >LB 
0:HOVE 306,260:DRAH 306,210:HOVE 384,260:DRAU 384, 210: M 
OVE 470,260:DRAV 470, 210: RETURN 

615 ' tb 2-nlV 3 >TC 



620 GOSUB 9340:P0KE M47A,68:Pl=l:P=0:HUi=0 >LT 
630 CALL 25500:P0KE 25009,0 >UI 
640 IF aurOO THEN 644 : ELSE IF PEEK ( 25002 )> =30 THEN ad= >BP 
l50:add=aF8ias=IJ)E:ass=a4C: 1 =32 : h=4:G0SUB 9Û20:aur=l 

644 IF aur=l THEN: p=p+pl :1F p=40 THEN pl=-l:ELSE IF p=l >JD 
THEN pl=l 

645 IF ma*l THEN dp=ad:ad=ad+p:GOSUB 9020:ad=dp >TE 

647 IF PEEK (25002) =68 AND f iapO THEN tp=ad:ad=&15:add= >RR 
aDO: GOSUB 9790:ad=tp:f lapl:add=&F8:as=kDE:ass=i4C: 1=32 
:h=4 

648 IF PEEK (25020) =8 AND PEEK ( 25002 )> 18 AND PEEK (25002) >KC 
<22 AND flapi THEN f lap2:as=t56:as9=MB:ad=lil5:add=liD 
0:l=8:h=8:G0SUB 9121: GOSUB 9060:GOSUB 9020 

649 IF PEEK(25002)>P AND PEEKI25002XP+3 AND HUSM THEN >JC 
GOSUB 9030 

650 IF PEEK (25002) =68 AND flap2 THEN GOSUB 9062: GOSUB >NU 
9360:G0T0 710 

700 GOTO 630 >ZC 
710 'tab 3-niv 1 >RJ 
720 GOSUB 9100: GOSUB 9080 : ni v=l: GOSUB 9300 >KC 
730 DATA 5,21,6,21,7,21,8,21,9,21,13,21,14,21,15,21,7,1 >BW 
4,8, 14,9, 14, 10, 14, 11, 14, 12, 14, 13, 14, 14, 14, 15, 14:HESTQ8E 
73O.-F0R t=l TO 17: BEAD a, b: LOCATE a,b:PRINT a»:NEXT 
740 d=d+l:IF d=50 THEN HOVE 152,78:DRAy 200.78, 13: GOSUB >ÏC 



.....CPC 464-664-6128- 

v eaU L'ANE 



Jeu de réflexion. Type "CASSE TETE". Positionnez L'ANE au 
bon endroit et c'est gagné ! Analyse de l'évolution fi 000 dépla- 
cements mémorisables). 

HELPBASIC 

TRON / TROFF / VRBAS / TEMP 

Sur AMSTRAD CPC... la trace complète du BASIC. Vos algo- 
rithmes visualisés, sur l'écran, sauvegardés sur le disque, ou 
imprimés. Il permet de brancher à chaque pas (ligne) de la 
trace, des sous-programmes d'affichage de variables sans 
l'emploi répété de GOSUB. Vitesse de la trace réglable. Logi- 
ciel écrit en assembleur et relogeable. 

HELPbase 

ECRAN / TITRE / LIST / NOLIST / LPRG 

Utile. Son menu est le sommaire de vos applications. Les flè- 
ches pour choisir, "RETURN" pour sélectionner et observer 
l'action et la trace des programmes. Implantation des titres et 
des programmes selon une structure simple. Fonctions Run, 
Renum, List, et Lprg pour lister le programme en cours. 

DEMO, manuel et 11 exemples pour la mise en œuvre. 



BON DE COMMANDE. Logiciels sur disquettes. 

L'ANE 170 F , ,. 

Reqlement par chèque 
HELPBASIC + HELPbase ( port compris) 

+ DEMO 299 F ^ 

TRANSFORM - Tél. 39 78 26 57 

15, rue Jean-Jaurès. 95240 CORMEILLES-EN-PARISIS 
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9122:ELSE IF d=100 THEN HOVE 152,78:DfiAW 200,7B,0:d=0 
750 dl=dl*l:IF dl=70 THEN HOVE 230,78:DBAW 284,78, 13:G0 >FQ 
SUB 9122:ELSE IF dl=120 THEN NOVE 230,78sDRAK 284.78,0: 
dl=0 

760 d2=d2U:IF d2=40 THEN NOVE 430,78:DBAU 478,78,13:G0 >EB 
SUB 9122:ELSE IF d2=80 THEN HOVE 430,78:OBAy 478,78,0:d 
2=0 

770 GOSUB 9370 > BE 
780 GOSUB 9480 >BH 
790 GOSUB 9420 >RC 
800 IF flag=2 AND PEEK( 25002) =68 THEN ad=fc6B:add=*CC:G0 )UU 
SUB 9790:ad=*85:G0SUB 9020:ad=i9A:G0SUB 9020:f lag=3:ta( 
0)*l:U(l)»l:U(2)«i 

810 IF P£EK(25002)>7 AND PEEK<25002K10 AND P£EK{25020) >LZ 
=8 AND ta(0)<>0 THEN ad=J<6B:as=lr56:GÛSUB 912l:G0SUB 906 
0:ta(0)=0:GOSUB 9020 

820 1F PEEK(25002)>34 AND PEEK(25002)<37 AND PEEK(2S020 >NQ 
)=8 AND taCUOO THEN ad=i85:as=l56:G0SUB 9121:G0SUB 90 
60:ta(l)=0:G0SUB 9020 

830 IF PEEK(25002)>54 AND PEEX(25002)<57 AND PEEK(25020 >NN 
)=8 AND ta(2)<>0 THEN ad^A^l^GOSUB 9121:G0SUB 90 
60:ta(2)=0:GOSUB 9020 

840 IF flag=3 AND PEEK(25002)=68 AND ta(O)=0 AND ta(l)= >LV 
0 AND ta<2)=0 THEN GOSUB 9310:G0SUB 9062:GOTO 860 
850 GOTO 740 >jW 
860 'TB 3-NIV 2 > TE 
870 GOSUB 9320:P0KE 2502 l.l«C7: POKE 25022, fcC3: POKE 25023 >PE 
,10:CALL &6613 

880 GOSUB 9370 >BG 
890 d=d*l:IF d=50 THEN HOVE 194,190:DRA« 28O,190,l3:H0V >UB 
E 380, 190: DRAW 476, 190. 13: GOSUB 9122:ELSE IF d=150 THEN 
HOVE 194,190:DBAV 280, 190,0: HOVE 380,190:DBAW 476,190. 
Oid-0 

900 dl=dlU:IF dl=70 THEN HOVE 2B0,190:DRAU 380,190,13: >PP 
GOSUB 9122::ELSE IF dl=170 THEN HOVE 280,190:DBAW 380,1 
90,0:01=0 

910 D2=D2+ 1 ; IF D2=5 THEN CALL 46613:02=0 >FI 
920 IF PEEK(25023)=PEEK(25002) AND PEEK(25020)<6 THEN >HA 
GOSUB 9030 

930 IF PEEK(25002)=68 AND flag=0 THEN ad=i35:add=kCA:GÛ >TG 
SUB 9790:flag=l 

940 IF PEEK(25020)=8 AND f lag=l AND PEEK(25002)>=3 AND >UB 
PEEK<25002)<=6 THEN GOSUB 9121.-G0SUB 9060:f lag=2:as=t.56 
: GOSUB 9020 

950 IF flag=2 AND PEEKt 25002) =68 THEN ad=14F:add=tCA:G0 >TA 
SUB 9790:f la|=3 

960 IF PEEK(25020)=8 AND flag=3 AND PEEK( 25002)) =30 AND >ZN 

PEEK(25002)<=32 THEN GOSUB 9121:G0SUB 9060:f ta«=4:as=lc 
56:G0SUB 9020 

970 IF flag=4 AND PEEK( 25002) =68 THEN GOSUB 9330:G0T0 1 >AB 
010 

1000 GOTO 880 >FC 
1010 'TAB 3 )IE 
1020 GOSUB .9340:P0KE M47A, 58 >y« 
1025 GOSUB 9380 >YA 
1030 CALL 25500 >q h 



1040 GOSUB 9390 >jj 
1050 GOSUB 9400 >XB 
1055 IF PEEK<25002)=58 THEN LOCATE 3,2:PEN 3:PRINT a 8 0 >BP 
N U S*:FOfl t=l TO 10:F0fi j=l TO 150:NEIT J:GOSUB 9060:S 
OUND 1,100,5, 15: NEXT t: GOSUB 9062 :CLStl: GOTO 35 
1100 GOTO 1030 >m 
9000 • >?B 
9005 'affiche transfert fournir adr écran >Yfi 
9010 POKE 25012, PEEK ( 25000 ): POKE 25013. PEEK<25001):P0KE >IH 
25014, «2.-P0KE 25015,4.49: POKE 25018,31:P0IŒ 25019. 12:C 
ALL 26100 

9015 FOB t=0 TO 5:P0KE 25012,ad2:P0KE 250l3,add2:P0K£ 2 )KC 
5014,M8:P0KE 25015, M6i CALL 26100:S0UND 1,500, 15. 10:F0 
B i=0 TO 150:NEXT «:POKE 25014,1iACjP0IŒ 25015, 147 :CALL 
26100:F0B i=0 TO 100:NEIT x,t:POKE 2501 4, 162: POKE 25015 
,149: CALL 26100: RETUEN 

9017 'affiche sprite de taille I fournir adr ecran.adr )YK 
rai,hau, lar 

9020 POKE 25O12.ad:P0KE 25013, add: POKE 25014, as:POKE 25 >YN 
015,aaa:P0KE 25018, I: POKE 25019, h:CALL 26100:1ETURN 
9025 'houe détruit >yj 
9030 INK 5,26: INK 2,26:S0UND 1,1500, 15, 10:F0B t=0 TO 20 >LL 
:NEn tiPOKE 25012,PEEK(25000):P0KE 25013, PEEK(25001):P 
OKE 25014. M2: POKE 25015,449:POKE 25016,31:P0KE 25019,1 
2:CALL 26100:POKE 25011,0: INK 5,6: INK 2,5:P0KE 25009,0: 
POKE 25006,0: GOTO 9230 

9040 IF PEEK(25020)=0 THEN GOSUB 9030:BETUBN:ELSE BETUB >BD 
N 

9050 IF PEEK(s6lB2><>9 THEN POKE 25006.0.-P0KE 25009.0:P >GL 

OKE 25020, 0:GOSUB 9030:RETURN:ELSE BETUBN 

9057 '« gest score » >zd 

9060 sc=sc*10:GOTO 9069 >bb 

9061 sc=sc+20:GOTO 9069 >rd 

9062 sc=sc*30:vi=vi+l:G0SUB 9240 >AT 
9069 LOCATE 8,23:PEN 8:PBINT sc.'BETURN >KB 

9080 'innitialisation tout tableau >yk 

9081 ff=0:fi=0:flag=0:b=0:c=0:z=0:xl=0:d=0:FOfi t=0 TO 9 >UZ 
:ta(t)=0:HEn:di=0:d2^0:BETUBN 

9100 CLStltlM 11,0: INK 12,0: INK 13,0:PBINT b»:FOfi t=l >FL 

TO 20:PEN 12:L0CATE t,7:PBINT CHB»( 131): LOCATE t,14:PBI 

NT CHB«< 131): LOCATE t,21:PBINT CHBK131) 

9110 PEN 13:L0CATE t.7:PRINT CHB*< 240): LOCATE t,14:PRlN >EL 

T CHB«(240):L0CATE t,21:PBINT CHBK240) 

9115 PEN 1 1 : LOCATE t,7:PBINT CHBN 241): LOCATE t,14:PBIN >DI 

T CHfil(241):L0CATE t,21:PRINT CHR*(24l):NEIT:PfilNT c* 

9120 INK 11,1: INK 12,26: INK 13,i4:ad=fc56:add=t t F4:as=t ( 20 >VE 
!89a=li4a:l = ii:h=6:CûSUB 8Û20iad=lt2fiiadd=fcF2:GOSUB 9020: 
ad=fc46:add=tC8:G0SUB 9020:BETUBN 

9121 FOB t=0 TO 5:S0UND l,ti5,2, 15:NFJT:ta(2)=0:RETUBN >Zlf 

9122 SOUND 1,1000,10. 15 .-SOUND 4,1020,10,15:BETUBN >TV 
9210 'i gestion vie t >ye 
9230 vl=vl-l >GC 
9240 LOCATE 17.23:PEN B:PBINT vi:IF vi=0 THEN CLStlrGOT >FK 
0 9800 

9250 ON nlv GOTO 9281,9282.9283 >X£ 
9281 GOSUB 9300:BETUtN >K 
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9282 POKE 25000.4M:P0KE 25001. ICA : POU 25002, ItPOKE » *T 
004.698:POKE 25005.63A:PaKE 2S0OB.0:tnWH 
1283 POKE 25000. 6A0:POKE 25001. IC8: POKE 25002, l.-POKE 25 >« 
004.A96.-P0KE 25005, 634 :IETUW 

«300 POKE 25OO0.4i:POKE 25001. (CD: POKE 25002. l:POKE 250 >Ptf 
04,6JM:P0KE 25006. 434: POKE 25003,0: POKE 25020. ÛiPCKE 25 
OIO,6iPOKE 66S46,640:P0KE 46547. 4C6: POKE 46474. 68: IETW 
N 

0308 ' atcaueur Cas 

9310 ad2=AF6:add2*6<X: GOSUB 9010.-G0SUB W60:RETUBN 
0310 ' (Mit «lv 2 

9320 m*<2:P0KE 25000. 400: POKE 2500 1.4CA: POKE 25002.1:» 
d2«4«:à4<52^C2:C0SUI 9010:P0KE 25004. 690 i POKE 25005.43 
4:P0KE 46546, 4I0:P0KE 66547. AC4.G0SM 9060:IETtHN 
632» ' passait alv 3 >ZF 
9330 ad2»4C6:»dd2«4J»2: GOSUB 90IO:COSU6 9061.'KTUBN >VC 
lanit ni» 3 >2G 
nltOiPOKE 25000, 440 (POKE 2500 1,408: POKE 250O2,lta >« 
d2--l60:a4d2=4£8:œSUi M10:P0K£ 25004, 698: POKE 25006.43 
A:POKE 46S46.6E0:P«F 465a7.6Cl:C0S0B OOBOtBETURN 
9350 1 pu<|i isc 3 >TK 
9360 POKE 25000. 4E0:P0KE •2SO0».4C6:ad2=695:add2=6E8:COS >HI 
H 9OI0:COSW 9061:6ETUHt 

9370 C4LL 25500:001 46642:1F PEDU25011M A» PEDU2S >W 
0091*0 THEH GCSU6 9030:IETUM;ELSE POKE 2501l.0:BETWN 
9380 ■d*636:add>6Cl:air6K:asf*64l:N24:6«9:G0SUl 9020: tl 

KflÉl 

9390 IF d=35 THE* SOUND 1.50.2. 15:EtSE IF f)IOO AND d<3 >J9 
0 n» SOU» 2.70.2.I5IIETU9II 

9391 IETU8N >GF 
9400 d=d«l:IF d«50 THEN GOSUB 91Z2:F0I 1*644 TO 40 STE? >A£ 

-8:PL0T t,3S0,2:PU)T l»B.3S0.0:NEIT:GÛSUi 9050:ELSE IF 
d=S2 THEN PLOT 40,350,0:8*0 

9410 f=M:IF fM20 THEN SOUND 1. 1200.10, 13:S0UM' 4.1È3 >W 
0.10,13:FOt t=544 TO 40 STEP -8:PLÛT t.3l4.2:PL0T 1*8.3 
I4.0:NEIT:C0SW 9040:ELSl IE 1*122 THE» FLOT 40.3l4.uM 



9411 HETUM > fl 
9420 IF PEEfci 250201 -B AND MftfM AND PEEKl 250021) 29 AND >QM 

P€£X( 25002 X 33 TMFN COSUS 9I21:CÛSUB 9060: M a«' 2: ad 68 
0:aNd*ACC:as'4S6:aas*A4B>CaSUI 9020t6tTUH:ELSE lETUtt 
9450 IF 1»>I9 AND t»(26 AND ff'i THE» G0SU9 W30iELSE I >ZE 
F ti)43 AND li<53 AND fl*l THEN GOSUB 9030 
9455 RETUBN >GG 
9470 GOSUB 9121:G0SUB 9060:8ETU9N >CN 
9480 IF PEEX(25002)>68 AND f Uf-0 THEN ad=480:add*6CC:a >T0 
s*616iasa*44*:|:8:M»:C0SUi 9020:f Ia|--1:1ETUBN 
9486 ICTUBN >GK 
9760 If PEEK 125002) =68 AND îlaf*0 THEN ad--680:add*aCC:a >ET 
s-616 t«M*648: 1 =8: h«8:G0SUB 9020: M «fft| 
9790 As*616:ass*449: I =B :h-fl:COSUB 9020iBETUBN Ut 
9800 LOCATE 3.1:PEN 9:PIINTC Ht OU B':L0C4TE 5 >IX 
,10:PEN i3:PIINT*l£J0Ua Û/N « 

9810 CLEAI INPUT:FOi 1=0 TO IOO:NEXT:D8'(VfEIIt INKET4I: >Jfl 
IF D4*«0* THE* OEASiBUN 35iELSE IF 84»»r THEN NOOE 0: 
END: USE COTO 9810 




PROGRAMMES 
PUBLIES DANS 
AMSTAR 



AMSTAR N' 1 

Mucicos. ta eh**»* àux £»ndrd\ fnMc» . fjnkatavk, 
K.iovr Pou*»?. Cartomarn: f« •, 

brique, Njhhlci. lump Bu ■« 
ilMogiamnifs du n" I au n fi 

AMSTAR N c 2 : 

Olhdlc, WU P ce'o. S- M-.© l'.mhrïdc. t *4l 
UH. Ro%Jld«# OjaH. T. ; n _ A 

aieuo (FiXflltifQnvfi <ta " > ii ' \f • . i 
AMSTAR N 3 

Robby Rock - Rebuund Bel] - Mt«1 Mietfl Mmd r Aur* . 
(Pit^nnne» au t>* \ 7 au n * <rv>ui) 

ION D€ COMMANDE 

AMSTAR .V ! IfttlMEllOr 

AMSTAR N v 2 J.ii^uciu i «iF 

.<N4STARN'< )fr*ùmllQV 

It>Ul J{<tlÇT4l I ÎJHC»! J< POFM 

Pv>n en fu< l»J r * pvur m^oi «n .1 i 
4 ^nYof an ncommmndé, Mj&ulwr 10 F 

nmn 



• Ne pouvênt Âfre Tenu pour nsponssMi * / iich#m/f*ro*nf t 



Délai minimum da livrsusn 
15 jour* à réception de le < 



4<? 



TELECHARGEMENT 




RECTIFICATIF 

Le mois précédent. Il était question des 
problèmes avec les Minitels récalci- 
trants. L'appui sur les touches FONC- 
TION + P et ensuite I provoque bien 
l'apparition du symbole I (pour Inhi- 
bition) mais la barre d'espace n'ef- 
face pas ce symbole. Il faut en fait 
utiliser les mêmes touches que pour 
inhiber c'est-à-dire FONCTION + P et 
I. Autre correction par rapport au mois 
dernier : les programmes en plusieurs 
parties ne posent pas de problèmes 
lors du téléchargement. Les Rescue 
et autres Momie ont été corrigés, il ne 
devrait donc plus y avoir de problè- 
mes. 




On nous a signalé des problèmes avec 
le logiciel Agenda. En fait il faut Im- 
pérativement transformer le deuxième 
programme en Basic sinon cela ne 
fonctionne pas. 

Vous trouverez Ici la liste des logiciels 
présents sur Arcades au 25/2/89. Cela 
vous économisera quelques minutes 
de connexion. 



Liste des logiciels présents sur Arcades 


10 


MEMOCART 








NUCLEAR 






12 


PROBLEME 






13 


SQUELET 


ALCA 


Jeu d'arcade spécial 




TOPCALC 


2 ALPHA 


Un strip-pendu 




3 AMSBOGG 


Version CPC du Boggie 




- ANE 


Jeu de réflexion 






5 AWARI 


Jeu de réflexion africain 


1 


AMSLOG 


• BLEUCARD 




2 


ANALYSE 


- BVKE 


Un remake deTRON 


3 


ANTIER2 


8 CENDRIO 


Aventure tirée du conte 




BANDEIMP 


i CHARASSO 


Jeu en BASIC (arcade) 


5 


CAMBER 


: CHIFFRES 


Reprise du célèbre jeu 




CATDISK 


CONFUS 


Jeu de réflexion 


7 


CATK7 


. CUBEMEL 


Jeu de réflexion 


8 


COMDECOM 


:• DJDAOPGE 




9 


CREA DATA 


- ENERGIX 


Jeu dans le labyrinthe 


10 


DEFCAR 


î VANIOIR 


Jeu d'aventure au château 




DEMOTRIS 






12 


DESAS 




Jeu de réflexion 


13 


DISC UT 


2 MAZE 




14 


EDICAT 


3 MISSION 


Supercopter sur CPC 


15 


JAQUETTE 


4 MOMIE 


Poursuite égyptienne 




5 OPERAT 


Arcade spatial 




PAVNUM 


6 PACKY 


Un pac-man en BASIC 


2 


PROTUST 


7 RESCUE 


Sauvetage en hélicoptère 




REGISTRE 


8 RUNAWAY 


Lode runner pour CPC 




RENUM 


V SATELLIT 


Jeu de réflexion 








5 


TELECHAR 


Educatifs 




6 
7 


XREF 
XREF128 



Tableau de Mendeteev 
Des problèmes de calcul 
Révision anatomlque 
Révisions opérations 



Etude d'un prog BASIC 



ATTENTIF 
CALCULS 
CHIF 

CONJUGUE 

COULMELO 

DEPARTOI 

DRAPEAU 

EUROPA 

LATIN 



Trace des camemberts 
Catalogue disque amélioré 
Catalogue pour K7 
I Compilateur d'écrans 
Du binaire aux Data 
Redéfinir des caractères 
Routines de tri 
In désassembleur 
Itilitaires simples 
Imprimez vos catalogues 
Créez vos jaquettes de K7 

Redéfinition des touches 
Protection des listings 
Manipulation des registres 
Renumérotation program 
mes binaires 

Correcteur (TAPEZ GUIDE) 
Table des variables (464) 
Version 61 28 de XREF 



Conjugaison française 
Mélange des couleurs 
Jeu de l'oie départemental 



AMSMUSIC Composez vos J 

AMSRYTHM Boite à rythmes 

EUGENIA Scott Joplin 

MENUET Musique 

MUSICA Un utilitaire musical 

MUSICRAG Musique 



1 CHENILL 

2 CIRCLE 

3 COURBES 

4 CPDATA 

5 DEMOPINT 

6 EFFECTS 

7 EFFETS 

8 ROUTE 
v TITRES 



Demo cyclage de couleurs 
Une instruction cercle 
Quelques exemples de fonc 

2 RSX graphiques 
CPDATA obligatoire (démo) 
Trucs pour présentations 
Effet spécial sur écran 
Petite démo graphique 
Demo de titres colorés 



ACTIONS 

AGENDA 

ALCOOL 

ASTRO 

BON-SON 

CALCULAT 

CARMAGIC 

CIEL 



11 DISCO 

12 ETIKDISC 

13 GENEALOG 

14 NUMEROl 

15 OSCILLO 



PRATIQUE 
TABLE 
TRAJECT 
VAGUES 



Gestion actions boursières 
Planifiez vos journées 

■ électronique 
: les planètes 

Calculatrice de poche 
Les carrés magiques 
Repérez les étoiles 
Gérez votre congélateur 
Calcul consommation car 

Classez vos 33 tours 
Etquettes pour disque 
Généalogie informatique 
Logiciel de numérologie 
Simulation d'oscillo 



3 programmes divers 
Placez vos invités 
Trajectoires planètes 
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NCREDIBLE HRINKING PHERE 



►Ah, vous m'en direz des nouvelles de ces «anciens» 
qui, après quelques années passées derrière un bureau 
à se rouiller veulent retrouver quelques sensations fortes 
en se replongeant dans le feu de l'action ! C'est le cas du 
colonel en chef, Matt Ridley ; il a décidé de prendre les 
commandes d'une sphère de chasse et de se lancer sur la 
piste de mort réputée comme quasiment impraticable 
par le plus chevronné d'entre nous... Résultat? 11 a été 
mis out par les «sphères assassines» et il faut maintenant 
que je me lance moi aussi sur cette fameuse piste afin de 
le localiser. 

Après avoir déposé 4 réserves de munitions sur les 4 
plates-formes consti tuant le premier niveau, je commence 
doucement ma progression. En effet, je me montre très 
prudent car il est facile de perdre le contrôle de la sphère 
et, pour peu qu'elle touche certaines cases, elle se trans- 
forme rapidement en boule de flipper !... Afin d'affronter 
lés sphères assassines dans de bonnes conditions, je me 
dirige d'abord vers le premier bon qui me transporte sur 
la seconde plate-forme. A ce stade, aucune d'issue possi- 
ble mais seulement une case qui m'entoure d'un champ 
protecteur qui va durer suffisamment longtemps pour 
passer au travers de l'ennemi de la Ire plate-forme si j'ar- 
rive à me diriger correctement. En faisant le grand tour 
dans ce premier labyrinthe, f atteins l'issue passer à la 
plate-forme suivante ; là pour traverser le premier pas- 
sage sans encombre, il vaudra mieux que je sois en état de 
diminution de masse car tout joue dans ce théâtre de la 





DU COTE 
DES COMPILATIONS 



Ce mois-ci, il y en a pour tous les goûts au niveau des compilations ; en effet, que vous soyez 
un as du joystick ou un fanatique des logiciels du genre arcade/aventure, vous pouvez faire 
votre choix parmi les titres suivants. 



• Dans leur série de compilations à thème, Infogrames vient de sortir Le9 Aventuriers qui ne regroupent pas moins de 8 logiciels. 
Parmi eux, vous connaissez déjà Marche à l'Ombre, Stryfe, Eden Blues, Momy et Massacre à la Tomate qui, en leur temps, ont fait 
l'objet d'un banc d'essai dans Amstar. Voici un rapide aperçu des 3 derniers titres qui complètent cette compilation : Dwarf vous 
oblige à grimper en haut d'une forteresse en vous aidant de parchemins trouvés en chemin qui vous indiquent les bonnes direc- 
tions. Electric Wonderland est un jeu de hasard où vous avez des puits, des champigons. Il suffit de retrouver le bon champignon 
pour chaque puits. Quant à Pépé Béquilles, il vous plonge au cœur d'un hospice et de ses nombreuses pièces dans lesquelles vous 
allez évoluer en utilisant des menus. 

LES AVENTURIERS, DK : prix non communiqué 



INFOGRAMES 



MELBOURNE HOUSE 



OCEAN 



Cette même compilation est égale- 
ment disponible en version dis- 
quette. 



• C'est d'outre-Atlantique que nous arrive directement cette 
troisième et dernière compilation. 



La version proposée est sur cassette et con- 
tient 5 logiciels : Sweevo's World, Tir 
Nanog, Dun Darach, Marsport et Hea- 
vy on the Magick. 




• C'est sous le nom de Dynamite qu'Océan pro- 
pose cette compilation comprenant 8 ti- 
tres prestigieux puisqu'ils ont tous 
été testés dans Amstar. Aussi nous 
nous contenterons de vous rap- 
peler les titres des logiciels 
concernés : Crazy Cars, 
Gryzor, Karnov, Salaman- 
der, Predator, Platoon, 



Combat School et Driller. 



G ARCOYLE CLASSICS 



DYNAMITE, K7 : 149 F 
DK : 199 F 



momy 



[sur** 
mm * m 




■"t"i*l 



et 



o 

(4HIWCJMU 
C4HKIHN 




ANCIENS 
NUMEROS 

AMSTAR 




□ 5.6,8.9, 10, 11 
J 12, 13. 14, 15 
J 16, 17, 18, 19, 20, 21 
J 22, 23. 24. 25 



15 F (l'unité) 
18 F (l'unité) 
20 F (l'unité) 
22 F (l'unité) 



Total général 

Entourez le (ou les) numéro(s) commandé(s) 
Nom _ Prénom : 



Adresse 



Code postal 
Date 



Ville 



Signature 



Mera d'écrire en majuscules. 

Ci-joint un chèque libellé à Tordre de Editions SORACOM 
Retournez le(s) bulletin(s) ou une photocopie à Editions SORA- 
COM - La Haie de Pan - 351 70 BRU2. 

Délai minimum de livraison : 15 jours à réception de la com- 
mande. 



Simulation 



I 



Que l'on soit petit ou grand, la magie qu'exerce le 
cirque sur nous est toujours aussi vive ; d'ailleurs 

qui n'a jamais rêvé être au milieu de la piste faisant 

son numéro d'acrobaties en étant adulé par le j 

public ? 

Avec Circus Games, vous pénétrez sous le plus grand 

chapiteau du monde puisqu'il s'agit du cirque 

Barnum. Vous avez l'honneur de pouvoir présenter 4 . 

numéros aussi dangereux les uns que les autres : le 

domptage de tigres, le trapèze, la corde raide et la 

voltige à cheval. Voyons chacune des disciplines 

indépendamment : pour le domptage des tigres, vous 

n'avez pas moins de 3 gros chats à domestiquer dans 

3 exercices différents ; pour y parvenir, vous êtes bien ' 

sûr équipé d'un fouet et d'une chaise qu'il faut 

utiliser à bon escient. Le premier exercice consiste à 

faire s'allonger les bêtes et à leur tourner le dos 

pendant 9 s sans se faire attaquer ; ensuite, il faut que 

le tigre aille de l'autre côté de la cage et, pour finir, les i 

3 «bestioles» doivent passer à travers un tuyau. . . \ 

Autant vous dire que tout ceci est plus facile à dire 

qu'à faire. Nous passons ensuite à l'épreuve du 

trapèze qui est plus accessible à condition de bien 

synchroniser vitesse d'exécution et départ d'acrobatie | 

car sinon les retournements, sauts périlleux et 

doubles sauts périlleux se terminent très mal d'autant 

plus que vous travaillez sans filet. La 3ème épreuve 

se révèle très délicate : en effet, la corde est vraiment 

très raide et le moindre petit déséquilibre vous j 

entraîne irrémédiablement dans une chute et vous 

vous écrasez lamentablement sur le sol. 



Heureusement qu'à droite de récran, une vue de 
dessus vous permet de surveiller votre équilibre et de 
le rétablir instantanément... Quant à la dernière 
épreuve, elle met en scène une belle cavalière pour 
qui les sauts périlleux se terminant sur la croupe du 
cheval n'ont aucun secret. Il va falloir attraper une 
balle, sauter dans des cerceaux et, comme il n'y a pas 
de spectacle réussi sans clown, il faut éviter les tartes 
à la crème lancées par le clown et pour terminer le 
tuer d'une balle. Triste fin !... 

Edité par: Tynesoft 

Prix indicatif : Non communiqué 




Notre avis : 

Si tes graphismes de Gircus Games sont très simples, il faut noter que chaque numéro se déroule 
sur un superbe fond musical créant l'ambiance. Par ailleurs, il faudra persévérer dans l'entraîne- 
ment pour réussir à maîtriser chaque numéro mais le travail long et répété d'un exercice est le 
propre du cirque, non ? * m 

H O T E 4&(JtO 



LA DISQUETTE 'ARCADES" 
+ LE CABLE (nouvelle version)* 



Je dés ; / 8 recevoir : 

- Kil télécharge ment pour Amstrad CPC à 98 F . 

- Loi de A disquettes vierges à 98 F 



Frais de port . 



14F 



TOTAL A PAYER. 



Nom 



Prénom : 
Adresse : 



Code postal 

Ville: 

Date : 



Signature 



Merci d'écrire en majuscules. 



! Ne peut être vendu séparément 



Délai minimum de livraison : 15 jours à réception de la commande. 
Ci-joint un chèque Libellé à l'ordre des Editions SORÀCOM 
Retournez le(s) bulletin(s) ou une photocopie 
|^aux Editions SORACOM - La Haie de Pan - 351 70 BRUZ^ 




recherche des proeram meurs sur les 
matériels ÀMSTKXl*, ATARI , 
Ç«\l\K)l)(i*Ri;, VG et 
Compatibles. Si vous pense/, avoir 
réalise un bon programme ou si 
\ous êtes intéresse par le 
développemment i contactez : 



E S AT SOFTWARE 
57 RUE DU TONDU 
33000 BORDEAUX 

TEL 56 96 35 23 



SOLUTION 



L'ILE 



Etant seul et vulnérable sur la plage, 
vous allez au Nord ; à l'ombre des 
palmiers, il suffit de fouiller dans le sa- 
ble et de prendre le briquet avant d'al- 
ler d'abord au Sud puis 2 fois à l'Ouest. 
Vous vous retrouvez alors face au Grand 
Sorcier devant lequel vous allumez le bri- 
quet ; il est alors très impressionné, vous 
ne pouvez donc faire autrement que de 
lui donner le briquet d'autant plus qu'en 



échange vous êtes convié à prendre une 
peau. Après cette rencontre, une petite 
balade vous fera le plus grand bien, vous 
allez au Nord, puis à l'Ouest puis au Nord 
puis à l'Ouest puis au Nord puis à l'Ouest 
puis au Nord puis... Stop! Vous êtes 
devant le gardien du temple à qui vous 
donnez la peau. En allant alors 2 fois vers 
le Nord, vous vous retrouvez dans le 
temple avec ses mystères. Toute une cé- 



rémonie doit se dérouler autour de 
l'anneau : tourner l'anneau, tirer l'an- 
neau, tourner l'anneau, pousser l'anneau, 
ce qui permet alors de prendre le mas- 
que. De nouveau, un petit tour s'impose : 
3 fois au Sud, à l'Est, au Sud, à l'Est, au 
Nord, à l'Est et au Sud pour se retrou- 
ver face au passeur à qui il faut donner 
le masque pour pouvoir continuer à l'Est, 
au Sud et 2 fois à l'Ouest. Vous pouvez 
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m 

* — " 



1 



Notre avis 





ïst acceptai, domma 

tes graphismes et 
lâttssent tant q ,e I on se 
nsi devant le même rype 



jon 



mm 

- ^ "*WiilirrtiT 




Bob morane océans i 



Arcade/Aventure 



^ Revoilà le héros romanesque qui a déjà 
^ subi plusieurs adaptations logicielles. 
Cet épisode semble être le premier d'une 
série maritime puisqu'un numéro 1 orne 
le titre. L'Ombre Jaune et ses fidèles Da- 
coïts ont décidé de construire une série 
de bases sous-marines à usage maléfique. 
En effet, les bases sont des usines auto- 
matiques produisant des robots tueurs. 
Un écran de contrôle installé à bord du 
sous-marin permet de suivre la progres- 
sion de r»épidcmic». Toujours sur cet 
écran, il est possible de déplacer une flè- 
che représentant le bâtiment de notre 
héros. Lorsque le déplacement est vali- 
dé, une phase d'arcade commence : vous 
devez conduire le sous-marin à travers 
une série de petits rochers. A 
chaque contact, le niveau 
d'énergie diminue. Vous 
devez donc être 




vigilant. De plus, il est possible d'accélé- 
rer le processus à vos risques et périls 
puisque les rochers deviennent alors très 
difficiles à éviter. Cette partie est plus ou 
moins longue suivant la distance à par- 
courir. Une fois arrivé à votre destination, 
de préférence sur une connexion entre ba- 
ses, vous pourrez disposer une bombe 
grâce à une petite plongée dans les eaux 
limpides et bleues. Tout serait plutôt 
simple s'il n'y avait pas de requin. Votre 
rayon laser en viendra à bout, à condi- 
tion de viser correctement. Une fois la 
bombe déposée, le retour au sous-marin 
est automatique. Maintenant, il est pré- 
férable de s'éloigner rapidement avant de 
percevoir les effets de la déflagration. Le 
compte à rebours est défini par vos soins : 
s'il est court, vous pourrez agir rapide- 
ment mais vous prenez le risque d'être 
encore sur place quand la bombe ex- 
plosera. Si vous tombez dans l'ex- 
cès contraire, les connexions 
pourront se reproduire 
ailleurs et vous aurez donc 
deux fois plus de travail, 
Un délai de 10 secon- 
d e s 



semble être suffisant pour réussir. De 
temps à autre des patrouilles de Dacoïts, 
symbolisées par des carrés rouges, se dé- 
placent vers vous. Il suffit de leur envoyer 
un leurre pour qu'ils se précipitent des- 
sus. Ce leurre n'est pas éternel et il vaut 
mieux en profiter pour semer le maximum 
de destruction. 

La rencontre avec une patrouille se passe 
de la manière suivante : un vaisseau 
Dacoït vous tire dessus, vous tâchez de 
riposter et de le détruire. A chaque coup 
reçu, votre niveau d'énergie baisse. Le 
vaisseau détruit est remplacé par un au- 
tre et ainsi de suite jusqu'à concurrence 
de 4. Mais normalement, en agissant as- 
sez rapidement, vous n'aurez même pas 
le temps d'attaquer ou de vous faire at- 
taquer par une patrouille. La technique 
à employer est celle du raid : on ne s'at- 
taque pas à plus de deux connexions à la 
fois et l'on rentre tout de suite à la base 
pour se ravitailler en oxygène et en éner- 
gie. 

Edité pan Infogrames 

Prix indicatif : Non communiqué 




Notre avis : 



Ce nouvel épisode de la saga est nettement supérieur aux 
précédents : variété de l'action, stratégie, graphismes meilleurs. 
II semblerait que l'originalité sort au rendez-vous. Alors tout 
bon Bob Morane Océans 9 Pas tout à fait, je regrette une seule 
chose, le jeu semble trop facile En effet, commencé à 1 8h1 5, 
à 18h25 exactement j'avais réussi la mission : 100 % de ba- 
ses ennemies détruites et 0 % de bases amies attaquées. Abrs ? 
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alors embarquer et «vogue la galère» 2 
fois à l'Ouest pour se retrouver sur les 
pics. Vous examinez attentivement la 
neige puis prenez les fleurs. Un petit 
demi-tour vous fait aller 2 fois à l'Est et 
embarquer à nouveau avant d'aller à l'Est 
puis au Sud et vous voici à nouveau 
devant le sorcier. Il suffit de lui donner 
les fleurs, de prendre le pollen et de le 
manger. Vous êtes alors en pleine forme 
pour aller au Nord puis à l'Ouest, em- 
barquer une nouvelle fois puis aller 3 fois 
au Sud et terminer à l'Est. En fouillant 
les cendres, vous découvrez un trésor et 



prenez des pièces avant de vous rendre 
au Nord. Devant la scène horrible qui se 
passe sous vos yeux, vous fouillez les 
buissons et prenez le cristal que vous 
découvrez ; il faut alors retourner à 
l'Ouest et 2 fois au Nord pour embar- 
quer une nouvelle fois, aller 2 fois au Nord 
puis à l'Est pour se retrouver devant le 
forgeron. En lui donnant les pièces, vous 
pouvez prendre un manteau que vous 
enfilez ; de plus, vous prenez une hache 
après avoir aidé le forgeron. Il ne vous 
reste plus qu'à reprendre la route pour 
retourner au temple : Ouest, Sud, Ouest, 



2 fois au Nord, Ouest et 2 fois au Nord. 
Vous cassez le cristal et rebroussez vite 
chemin : 3 fois au Sud, Est, Sud, Est et 
Sud ce qui vous amène à embarquer une 
dernière fois avant d'aller au Sud. A l'en- 
trée de la grotte, vous coupez du bois et 
le prenez puis vous entrez dans la grotte. 
En allant 3 fois au Sud puis à l'Ouest, 
vous vous retrouvez sur la côte. Il ne reste 
plus qu'à poser le bois, fouiller vos 
poches, prendre les allumettes et allu- 
mer un feu qui va vous permettre de 
quitter cette île à tout jamais. 
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Ch 3 Géométrie dans l'espace 
exercice 1 ) wenu-TftB^ pilote: 17.3 /8Q 



Regard* ce cuba: 




n :îî i: sîiisa â: K: 




g* 5î"»£V!Sl55îî»BC. 
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co|l»n»tres, différents 
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. »> Nous allons d'abord 
ABGH est un iiiitltllill 
montrons que les points 
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s'entraîner tout au long de l'année. Cha- 
que chapitre se présente de la manière 
suivante : un rappel du minimum de con- 
naissances à avoir et, chose très impor- 
tante avant de passer aux exercices et à 
leurs solutions, quelques trucs, conseils 
méthodologiques ou des mises en garde 
qui manquent bien souvent à l'élève pour 
appliquer correctement la théorie apprise 
en cours. Quant au livre de français, il 
contient lui aussi des corrigés (ce qui n'est 
pas négligeable) et aborde les problèmes 
liés à la dictée, la pratique de l'explica- 
tion de texte et l'entraînement à la rédac- 
tion. 

Passons maintenant à la partie qui inté- 
resse plus précisément votre CPC : une 
disquette pour les maths et une pour le 
français qui, malheureusement pour les 
possesseurs de 464, n'acceptent de rem- 
plir leurs fonctions que sur 664 et 6128. . . 
Après une page d'accueil avec un hôte 
de marque puisqu'il s'agit quand même 
d'Einstein pour les maths, le menu prin- 
cipal nous propose 9 sujets d'étude qui 
sont les suivants : calculs dans R et puis- 
sances, factorisations, racines carrées, 
Thalès et Pythagore, trigonométrie, sys- 
tèmes d'équations, repères et coordon- 
nées, équations de droites et, pour ter- 
miner, géométrie dans l'espace. Une fois 




qu'un chapitre est choisi, l'élève 
a 2 possibilités : ou faire un 
exercice ou choisir un «vrai- 
faux» qui est une série de questions per- 
mettant de tester les connaissances. Cette 
possibilité de test sur des notions élémen- 
taires est très intéressante car on repère 
tout de suite les lacunes. Quant aux exer- 
cices, ils sont présentés de façon claire et 
précisons qu'il est possible de choisir 
l'exercice à résoudre. Enfin, pour un exer- 
cice, 

il y a 3 types de données possibles : «Pro- 
fesseur» qui traite l'exercice avec des 
données qui tombent juste ou 
des cas particuliers à étudier, 
«Hasard» qui permet vraiment 
de tester la compréhension de 
l'exercice ou «Elève» qui vous 
autorise à entrer les données que 
vous désirez... pour voir ! 



Etudions maintenant ce que 
propose la disquette de fran- 
çais. Cette fois, c'est Victor Hugo 
qui se charge de l'accueil avant 
de proposer un menu compor- 
tant 11 points d'étude : les par- 
ticipes passés, les accents, la 
ponctuation, l'emploi des mo- 
des, les consonnes doubles, 
éviter les fautes de français, 
exercices de style 
en évitant les mots banals, 
vocabulaire : plus court, pa- 
tronyme, vocabulaire : déri- 
vés, glissements, vocabu- 
laire : contraire, plus fort et 
correction des fautes dans 
une dictée. 

Quand un exercice est choi- 
si dans un chapitre, 3 don- 
nes différentes sont accessi- 
bles et il est bien entendu 
possible d'obtenir de l'aide 
pour résoudre les cas épi- 



neux. Là encore, la présentation est claire 
et soignée avec la superposition de 3 ca- 
dres : le premier pour le type d'exercice, 
le second pour une aide éventuelle et le 
dernier pour l'énoncé de l'exercice et sa 
résolution. 



Edité par : Hatier 

Prix indicatif : DK, 500 F 



s'accorde en genre et en nombre avec 
le sujet du verbe. 

Ex: Nous somti rentrés chez nous. 

Elle s'est bien «musée. 



L'home était tTe de Najrchiennes 

vers deux h e nr e« * . Il marchait d'un 

pas <»i longée**, grelotant^a sous le 
coton i.. de sa veste • de M.n 

pantalon de velours. Un petit p^'i'i-' , 



[Notre avis : 



Voici un excellent support d'entraîne- 
ment au brevet d'une part et de pré- 
paration à l'entrée en 2nde d'autre part ; 
en outre, l'alliance du support papier 
et du support informatique en font un 
outil très complet. Quant à l'utilisation 
des logiciels, elle est facile et agréa- 
ble grâce à une présentation de qua- 
lité. A posséder. 

OOOO <fé/ao 
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BALADE A COLOGNE 



Ceux qui lisent régulièrement nos co- 
lonnes ou les habitués des éducatifs 
de Coktel Vision ne sont pas sans con- 
naître Enigme à Munich ou Balade ou- 
tre-Rhin qui nous contait en allemand 
l'histoire d'Alice au pays des Merveilles. 

Cette fois le logiciel que nous vous pré- 
sentons s'adresse aux élèves qui ont déjà 
environ un an d'étude de la langue alle- 
mande à leur actif. Dans ce cas, il leur est 
proposé de faire une séance de lecture en 




s'appuyant sur une nouvelle contempo- 
raine... 

Ainsi donc, nous faisons la connaissance 
de 2 camarades de toujours qui se pré- 
nomment Franck et Steffen. 

Agés tous les deux de 1 0 ans, ils fréquen- 
tent la même école et se retrouvent très 
tôt chaque dimanche matin pour 
nouvelle aventure. 

Le premier chapitre de cette histoire nous 
raconte ce que font les garçons avant de 



se retrouver devant la porte 
de l'appartement de Steffen. 
Un écran se présente avec un 
graphisme illustrant le texte 
en haut à gauche et le texte 
en lui-même qui comprend 
des mots écrits en vert et 
d'autres en blanc. 



Il est possible d'obte- 
nir la traduction de ces derniers en 
faisant appel à un dictionnaire ce 
qui facilitera la compréhension du 
texte. 

A la fin de chaque chapitre (le lo- 
giciel en comporte 8), on passe à une 
série d'exercices de compréhension 
sous forme de questions à choix 
multiples qui sont ensuite suivis par 
des exercices de grammaire : par 
exemple, à la fin du 1er chapitre, il 
est étudié la proposition infinitive 
de but um... zu..., le superlatif ir- 
régulier avant de terminer par un 
jeu qui dans le cas présent compare 
les noms des classes en Allemagne et en 
France ; par exemple, la Ire classe alle- 
mande correspond au CP... 

Voici donc le schéma qui va être suivi 
jusqu'à la fin du logiciel. 




Edité par . Coktel Vision/Cedic Nathan 
Prix indicatif : DK, 220 F 



Notre avis : 



Dans cette catégorie, ces logiciels sont 
semblables à eux-mêmes avec en plus 
du logiciel un bande audio afin d'amé- 
liorer son accent en entendant les in- 
tonations. Seulement, les couleurs 
choisies pour la partie compréhension 
et grammaire ne sont pas heureuses 
car elles rendent la lecture à l'écran 
difficile. A noter que les adeptes de 
l'espagnol peuvent découvrir la même 
histoire dans Balade à Séville. 

OOOO 42j2o 




ANGLAIS TOP NIVEAU 




Le but de ce logiciel, qui s'adresse à 
des élèves de 2nde et Ire, est de dé- 
couvrir le monde où l'on parle anglais... 
ce qui n'est pas en soi une mince affaire 
car il y a quand même 400 millions d'hom- 
mes qui utilisent cette langue. A cette fin, 
4 cartes différentes sont proposées à 
l'élève : l'Australie, l'Irlande, l'Afrique du 
Sud et les Etats-Unis. 

Choisissons par exemple la carte des 
Etats-Unis ; dix villes y figurent : San 
Francisco, Los Angeles, El Paso, Chica- 
go, St Louis, New Orléans, Miami, Was- 
hington, Philadelphie et New York. 
Vient ensuite un menu proposant 4 op- 
tions différentes : l'étude poussée d'un do- 
cument graphique, l'étude approfondie 



d'un document oral, des 
tests rapides sur des connais- 
sances générales ou l'appro- 
fondissement d'un ou plu- 
sieurs faits de langue. 

Par ailleurs, il faut noter la 
présence d'un outil qui va 
se révéler très intéressant : 
il s'agit d'une base de don- 
nées thématiques sous forme 
de textes, tableaux statisti- 
ques abordant l'histoire, la 
géographie ainsi que les phé- 
nomènes sociaux, hu- 
mains et culturels. 



contenus dans la base de données et de- 
mandent des dates correspondant à des 
événements importants ou des termes 
spécifiques. 

Enfin, pour terminer, le dernier point 
permet d'approfondir des faits de langue 
précis comme le style direct et le style 
indirect par exemple. 

Après cette découverte des Etats-Unis, 
il reste encore 3 autres cartes à découvrir. 

Edité par : Coktel Vision/Cedic Nathan 
Prix indicatif: DK, non communiqué 



En choisissant l'étude du document 
graphique, nous voyons une main 
s'accrochant à un grillage ; différen- 
tes questions vont nous amener à 
découvrir qu'il s'agit d'une frontière 
entre le Mexique et les Etats-Unis 
et pourquoi elle existe sous cette 
forme. 

La seconde option du menu prin- 
cipal fait référence aux textes enre- 
gistrés sur la cassette audio qui ac- 
compagne le logiciel. 

Après l'avoir écouté, il faut répondre aux 
questions qui s'affichent à l'écran et com- 
pléter des phrases. Quant aux tests rapi- 
des, ils font bien sûr référence aux textes 




Notre avis : 



Voici un bon support pour la pratique 
de l'anglais et même la préparation du 
bac. De plus, il faut noter la diversité 
des styles dans les documents puis- 
qu'il y a aussi bien des écrivains con- 
temporains que des articles du Time. 
Mais attention, seuls les possesseurs 
de 6128 ont la possibilité de vraiment 
s'enrichir avec ce logiciel. 

QQQQiçfao 



Apprendre à écrire par le biais d'un 
ordinateur ? J'en vois certains qui com- 
mencent déjà à sourire et à se dire que si 
l'audiovisuel et la micro-informatique lu- 
dique causent un préjudice à la lecture 
et à l'orthographe, un ordinateur ne peut 
sûrement pas aider à l'apprentissage de 
Y 



J'APPRENDS A ECRIRE 



Prenez le temps de découvrir la présen- 
tation de ce logiciel et vous changerez 
sûrement d'avis. Le principe est tout 
simple : il s'agit de mémoriser la visuali- 
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sation à l'écran de lettres ou 
de mots que l'enfant demande 
par l'intermédiaire du clavier. 
Voici un exemple précis : 
après avoir choisi les options 
«mot» et «minuscules», le 
programme attend que vous 
rentriez un mot ; au hasard 
«ordinateur». Après un temps 
de calcul nécessaire pour le 
logiciel, et qui apparaît sous 
forme de compte à rebours 
(rassurez-vous, ce n'est pas 
trop long), le mot demandé 
s'écrit sur la réglette dessinée 
à l'écran. Il faut noter, détail 
très important, que le mot 
s'inscrit à l'écran dans le sens normal de 
l'écriture manuelle. Par ailleurs, la police 
de caractères sélectionnée d'office est la 
scripte mais les mots ou lettres en cur- 
sive sont également possibles (sans les 
pleins et les déliés quand même !). En- 
fin, toujours dans les options disponibles, 
pouvez influer sur la grandeur de 
la réglette ou la vitesse d'écriture à l'écran. 
Ainsi, dans le cas d'une utilisation en 
milieu scolaire, la grande réglette et la 
vitesse la plus lente permettront d'expli- 
quer à plusieurs élèves en même temps, 
voyant parfaitement ce qui s'affiche 



35 



à l'écran. Pour terminer, notons un petit 
détail qui touche à l'esthétique : il est pos- 
sible en permanence de changer la cou- 
leur du pinceau d'écriture ce qui n'est pas 
négligeable pour retenir l'attention d'un 
enfant de 6 à 8 ans. 

Edité par : Cedic Nathan 
Prix indicatif: DK, 149,90 F 



[Notre avis : 



L'utilisation de ce logiciel apporte 
la visualisation des lettres et des 
mots mais ne constitue qu'une 
étape dans l'apprentissage que 
l'enfant devra compléter par l'écri- 
ture sur le papier. Pour ce qui est 
de la réalisation, il faut souligner 
qu'il y a eu des recherches de fi- 
nitions dans la présentation et l'uti- 
lisation du programme ce qui fait 
de lui un outil appréciable. 
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Utilitaire 




CONSTEL 




our cela, vous disposez de plusieurs options : visualisation d'une des 



39 constellations présentes en mémoire, carte du ciel pour les 4 sal- 



I sons, affichage des liaisons entre les constellations et visualisation des 
35 étoiles les plus brillantes visibles sous nos latitudes. 
Le passage d'un écran à l'autre est provoqué par l'appui d'une touche 
quelconque. 

Mode d'emploi : taper et sauvegarder le premier programme sous le nom 
«ETOILES». Le second programme est imcomplet. la suite paraîtra dans le 
numéro 32,et s'Intitulera CIEL. 




10 ' *i«m*«tu«m*HM 

20 ' * i 

30 ' i ETOILES « 

40 ' i ET « 

50 ' i CONSTELLATIONS • 



90 » 
100 ' 



>LC 
>LD 
>LE 



>LH 
>U 
>RB 
>fiC 
>RD 
>RE 



120 '« i 

130 'IHUIIIIIIIIHIIIII 

170 CLS:H0DE 2 

180 PAPEfi 0: BOEDER 0:1 NK 0,0 >UB 
190 FOR 1=0 TO 250:PL0T INT(RND(1)»640), INT(RND(1)m400) >HR 
:NEXT 1 

200 LOCATE 22 . 3 : PR I NT" * * * * IIHI Ht! 



210 LOCATE 22.4:P8INT"i 



220 LOCATE 22, 5 :PR1 HT" i«i 



230 LOCATE 22.6:PfiINT"* 



240 LOCATE 22, 7:PBIHT"i«i 



«« «tti >AB 



250 FOR i = l TO 22:READ a, b: LOCATE a . b : PB 1 NT CHRX143):N >EY 
EIT i 

260 DATA 36,11.37.11.38,11,39,11,36,12,36.13.37.13,38.1 >FZ 
3,36,14,36.15,37.15,38,15.39,15,42,11,43,11.44,11,45.11 
,46,11,44.12,44,13,44,14.44,15 
270 LOCATE 1,19:PRINT"* « » * * « • t 



280 LOCATE 1,21:PR1NT" 



290 LOCATE 1,23:PRINT»» 



>BF 



>ZX 



>BF 



300 PLOT 28, 104: DRAW 4,104:DRAU 4,40:DRAW 28,40 >NL 

310 PLOT 52,104:DRAy S2.40:DRAy 76,40:D8AU 76.104:DRA« >EF 
52,104 

320 PLOT 100.40:DRAU l00.104:DRAy 124,40:DRAU 124,104 >VJ 

330 PLOT 148,40:DRAy 172,40:DRAW 172.72:DRAW 14B,72:DRA >AR 
y 146,104:DRAU 172.104 

340 PLOT 196,i04:DiAy 228,104:PL0T 212,104:DKAW 212,40 >«C 

350 PLOT 276.104:DRAy 252,104:DRAy 252,40:DRAy 276.40:P >AF 
LOT 252,72:DRAy 266,72 

360 PLOT 300, 104: DRAU 300, 40: DRAW 324.40 >FC 

370 PLOT 348,104:DRA« 348.40:DRAy 372,40 >FH 

380 PLOT 396,40:DRAU 396,104:DRAy 420,104:DRAV 420,40:P >AH 
LÛT 396,72:DRAU 420,72 

390 PLOT 444,104:DRAy 476,104:PL0T 460,104:DRAy 460,40 >WV 

400 PLOT 492, 104: DRAy 492,40 >VH 

410 PLOT 508.104:DRAy 508.40:DRAy 532.40:DRAy 532.104:D >KZ 
RAU 508, 104 

420 PLOT 556,40:DRAy 556,104:DRAy 580,40:DRAy 580,104 >VF 

430 PLOT 604,40:DRAy 628,40:DRA« 628,72:DRAW 604.72:DRA >AC 
y 604,104:DRAV 628,104 

1000 RUN»ciel >FB 




100 'MENU >BB 
110 MODE 2 : CLS : I NK 0,0: PAPEfi 0: BORDER 0 )GN 
120 FOR l«l TO 250:PL0T INT(RND(1)»640), INT(RNDll)i400) >HK 
: NEXT i 

130 LOCATE 36.3:PRINT"H E N U":F0R i=36 TO 42:L0CATE 1. >FG 
4:PRINT CHR*(20B):NEXT 1 

140 LOCATE 6.6:PRINT"1 - VISUALISATION D'UNE CONSTELLAT >KF 
ION" 

150 LOCATE 6.8:PRINT"2 - VISUALISATION DU CIEL AU PRINT >LX 
EHPS" 

160 LOCATE 6,10:PRINT"3 - VISUALISATION DU CIEL EN ETE" >DK 

170 LOCATE 6,12:PRINT"4 - VISUALISATION DU CIEL EN AUTO )JN 
UNE" 

180 LOCATE 6,14:PRINT"5 - VISUALISATION DU CIEL EN HIVE >GP 
R" 

190 LOCATE 6,16:PRINT"6 - LIAISONS ENTRE LES PRINCIPALE >Ey 
S CONSTELLATIONS" 

200 LOCATE 6, 18:PRINT"7 - ETOILES LES PLUS BRILLANTES" >CL 

210 LOCATE 6,20:PRINT"8 - FIN" >y« 
220 LOCATE 28,23: INPUT'TAPER LE NI CHOISI":choix >«D 
230 1F choix<l OR choli>8 THEN GOTO 220 >FZ 
240 ON choix GOSUB 9000,5000,5600,6200,6900,3000,2000,1 >AP 
000 

250 GOTO 100 >ye 
1000 CLSiNEN )KE 
2000 ' ETOILES LES PLUS BRILLANTES >XE 
2010 CLS >2C 
2020 GOSUB 2500 >UD 
2030 RESTORE 2060:G0SUB 2200 m 
2040 GOSUB 15120 >m 
2050 CLS:GOSUB 2500:GOSUB 2200:G0SUB 15120:RETURN >UG 
2060 DATA "Soleil", ", "-26,9",", "Jaune"," 6500","Siriu >UT 
s", "Grand Chien", •- 1,44"," 9", "Blanche", "lOOOOVArc 
turus", "Bouvier", •- 0,04", ■ 37", "Rouge",* 4500", "Vega" 
."Lyre"," 0,06", « 27", "Blanche", " 10000" 
2070 DATA "Capel la", "Cocher"," 0,09", • 45", "Jaune", • >KN 
50OO","Rlgel"."0rion"," 0,19"," 900", "Blanche", "10000" 
."Procyon", "Petit Chien"," 0,37"," 11", "Jaune", " 6500 
",*B(telgeuse","Orion"," 0,47»," 520", "Rouge"," 3000" 
2080 DATA "Altair", "Aigle"," 0,78",» 16", "Blanche", ■ >(jy 
8000", "Aldlbaran", "Taureau"," 0,92"," 68", "Rouge"," 3 
500", "Antarls", "Scorpion"," 0,95"," 520", "Rouge", ■ 280 
OVSpica", "Vierge"," 0,96",» 258", "Bleue", "20000", "F 
orialhaut","Poiss.Aust." 



2090 DATA " U6V 22VBlancheV10000","Pollu»VG >JP 
{■eauiV 1.16V 35*. "Orange*," 4500", "DCneb", "Cygne 
V 1,28", "1600", "Blanche"," 9500", "Rlgulus". "Lion"," 
1,37", " 85", "Blanche", "12000", "Adhara", "Grand Chien", 
• 1,49", " 700", "Bleue", "18000" 

2100 DATA "Castor", "GdeauiV 1,57"," *5", "Blanche", >HR 
"10000" 

2110 DATA "BellatriiVOrionV 1,63"," 470", "Bleue"," >RJ 
19000VEI Nath", "Taureau"," 1,65V 300", "Bleue", "150 
00 ","A 1 ni tak ",'Or ion V 1,69", "1600", "Bleue", "18000", " 
Al ioth", "Grande Ourse"," 1,76"," 62", "Blanche". "11000 

2120 DATA "HirfakVPersle"," 1.81V 570", "Jaune", " 6 >ER 
000", "Dubhe", "Grande Ourse". " 1,83"," 105", "Orange", " 
4500VWezen", "Grand Chien"," 1,85", "2000", "Jaune"," 5 
500", "Alkaid", "Grande Ourse"," 1,86"," 200", "Bleue", "1 
8000" 

2130 DATA "Henkalinan", "Cocher"," 1.90", " 72","Blanch >YK 
e", "10000". "AlhinaVGdeaux"," 1.93"," 85". "Blanche" 
, "11000", "Hirza«", "Grand Chien"," 1,96"," 320", "Bleue" 
, "22000", "Polarls". "Petite Ourse", " 2,01". " 350VJaun 
e*." 6000" 

2140 DATA "HaialVBUierV 2,02"," 75", "Bouge", ' 40 >EY 
00", "Alphard", "Hydre"," 2,02"," 100". "Rouge*," 3500"," 
Nizar", "Grande Ourse"," 2.04"," 80", "Blanche", "10000" 
."Diphada", "Baleine"," 2,06"," 60", "Orange"," 4500" 
2150 DATA "SalphVOrlon"," 2.07","", "Bleue". "17000"," >UZ 



2200 FOR 1=1 TO 18:READ noi»,cons»,iagni,dist»,coul».te >LF 
■p$:L0CATE6,5+i:PRINT noi$:LOCATE 19,5H:PRINT cons*:L 
OCATE 35.5+i:PRlNT iagn$:LOCATE 47.5+i:PRINT dlst*:LOCA 
TE 57,5+i:PRlNT coul«:LÛCATE 68,5+l:PRÏNT teip*:KEXT i 
2210 RETURN >EJ 
2500 FOR i=36 TO 596:PL0T l,360:PL0T i,32B:PL0T i.24:NE >CE 

n i 

2510 FOR i=24 TO 360:PL0T 36,i:PL0T 14O,i:PL0T 252. i:PL >RG 
OT 332,i:PL0T 436,i:PL0T 516.i:PL0T 596,i:NEIT i 
2520 LOCATE 14, 1:PR1NT"ET0ILES LES PLUS BRILLANTES VISI >LG 
BLES A NOS LATITUDES" 

2530 LOCATE 8, 4:PRINT"ET01LES":L0CATE 19.4:PR1NT"C0NSTE >VG 
LUT ION": LOCATE 33,4:PRINT"HAGN.APP.":L0CATE 43.4:PRINT 
"DISTANCE(al)*:LOCATE 57, 4 : PR l NT"COULEUR" : LOCATE 66.4:P 
RlNT"TEMP(iK)" 

2540 RETURN >FE 
3000 ' LIAISONS ENTRE CONSTELLATIONS >ÏF 
3010 CLS >ZD 
3030 RESTORE 3700:e=14 >QD 
3040 GOSUB 15000 >CK 
3050 LOCATE 1 . 22.-PB 1NT"L1 A I SON GRANDE OURSE ETOILE POU >UQ 
18E":L0CATE l,23:PRINT»Le segient beta-alpha prolongl d 
e beU vers alpha de 5 fois sa longueur,": LOCATE 1,24:P 
RINT"recontre l'ETOILE P0U1RE" 

3060 LOCATE 40.10:PR1NT CHRK 176): LOCATE 37,11:PRINT CH >HD 
R*(177) 

3070 PLOT 333.263:DfiAy 389.274iPL0T 378,278:DRAY 389.27 >QR 
4: DRAW 380.267 

3080 GOSUB 15120 >DG 
3090 CLS: RESTORE 3700:e=20 >VH 
3100 GOSUB 15000 >CG 



3110 LOCATE l,24:PRINT"Ligne permettant de trouver CASS )XE 
10PEE" 

3115 LOCATE 40.10:PRINT CHRK 176): LOCATE 37.11.-PR1NT CH >HE 
Rt(177> 

3120 PLOT 314,290:DRAU 392,279:PL0T 415,273:DRAW 476,25 >UR 
6:PL0T 384,287:DRAW 392.279:DRA« 384.273:PL0T 466.26S:D 
m 476, 256: DRAW 465,253 

3130 GOSUB 15120 >DC 
3140 CLS: RESTORE 3700:e=29 >VN 
3150 GOSUB 15000 >DB 
3160 LOCATE 1,23:PRINT "Le prolongement de Alpha-Beta v >YB 
ers Beta permet de trouver la constellation ":LOCATE 1, 
24:PRINT "du LION (en Mai vers Minuit)" 
3165 LOCATE 20, 16:PRlNT"R{gulus" >DZ 
3167 LOCATE 40,10:PRINT CHRK 176) : LOCATE 37. 11:PRINT CH >HH 
R»(177) 

3170 PLOT 289,252:D8Atf 203.224:PL0T 213,235:DRA U 203,22 >PD 
4:DRAU 213,220 

3180 GOSUB 15120 >0H 
3200 CLS >ZE 
3210 RESTORE 3700:e=35 >QG 
3220 GOSUB 15000 >CK 
3230 LOCATE 1,23:PRINT "Liaison GRANDE OURSE - LES GFJE >GB 
AUÏ":LOCATE 1,24:PR1NT "(en Avril vers Minuit)" 
3240 PLOT 302,2B4:DRA« 302,260:PL0T 296,266:DRAy 302,26 >VR 
0:DRAW 308,266:PLOT 300,243:DRAU 300.140:PL0T 293.146:0 
RAW 300, 140 : DRAW 307,146 

3250 LOCATE 30, 17:PRINT"Pol lux":LOCATE 42, 16:PRINT»Cast >LB 



3260 GOSUB 15120 
3270 CLS 

3280 RESTORE 3700:e*41 
3290 GOSUB 15000 



>DG 
)AB 
>QL 
>DG 



3300 LOCATE 1.23.-PRINT "Liaison GRANDE OURSE - LE COCHE >CG 
R": LOCATE 1,24:PR1NT "(en Avril vers Minuit)" 
3310 PLOT 323,254:DRA« 386,16i:PL0T 373,168:DRAW 386,16 >PV 
1:DRAU 386,170 

3320 LOCATE 5l,14:PRlNT"Capella" >DH 
3330 GOSUB 15120 >DE 
3340 CLS >Z* 
3350 RESTORE 3800:e=16 >QH 
3360 GOSUB 15000 >DE 
3370 LOCATE 1,23:PR1NT "Le TRIANGLE D'ETE .Bien observa )AU 
ble et tris haut dans le ciel d' it(":LOCATE 1,24:PRINT 
•Liaison entre le CYGNE, I' AIGLE et la LYRE" 
3380 LOCATE 34, 2:PRINT"Dineb": LOCATE 54. 3:PRINT"V{ga":L >RH 
OCATE 45,16:PRlNT"Altalr" 

3390 PLOT 293,339:DRA« 338,170:PL0T 350.172:DRAW 420,33 >HK 
2:PL0T 416,341:DRAy 299,348 

3400 GOSUB 15120 >DC 
3410 CLS >ZH 
3420 RESTORE 3810:e=10 >QE 
3430 GOSUB 15000 >DC 
3440 LOCATE 1,23:PRINT 'Liaisons permettant de retrouve >RE 
r Aldlbaran (TAUREAU) et Sirius (GRAND CHIEN)": LOCATE i 
,24:PRINT "8 partir d'QRION !en Hiver)" 
3450 LOCATE 18, 22:PRINT"Slrius":L0CATE 39, 19:PRlNT"kige >EP 
1 ' : LOCATE 21,8:PRINT"Bltelgeuse":L0CATE 35.8:PRlNT"Bell 
atrix": LOCATE 44,5:PRlNT"Ald{baran":L0CATE 67,3:PRINT"L 
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es PKiades" 

3460 PLOT 230,160:DRAW 105,60:PLOT 270. 190:DBAW 415,310 >HZ 
:PL0T 110, 75:DRA« 105,60:DBAU 115,61 :PL0T 405,310:DRAU 
415,310:DRAy 412,300 

3465 PLOT 511,377:PL0T 513,373:PL0T 513,367:PL0T 506,37 >HF 
4: PLOT 509, 367: PLOT 502,366 

3470 GOSUB 15120:RETURN ' )TQ 

3700 DATA 293,338.4,302,322,4,299,305,4,302,290,4,318,2 )BF 
60.4,299,254,4,287,271,4 

3710 DATA 404,278,4,401,288,3,393,299,3.382,307,3,385,3 >BU 
18.3,368,323,4,367,310,4 

3720 DATA 470,237,3.455,234,3,485,240,4,487,255.4,505,2 >NF 
58,4,496,273,4 

3730 DATA 227,173,2,230,186,2,214,196,2,202,197.2,202,1 >GQ 

83,2.185,175,5.176,243,2,173,291,4,193,247,2 

3740 DATA 306,127,4,322,132,4,351,102,2,368,89,3,347,77 >KK 

,3,313,104,2 

3750 DATA 414,158,4,422,145,2,434,121,3,414,106,3,388,1 >MR 
30,2,390,152,2 

3800 DATA 290,347,4,305,323,4,336,343,2,275,292,4.242,2 >WD 
72,2,331,292,2.367.258,2.423,340,4,412.345.2,416,333,1. 
405,326,1,405,308.2,416,308,2.343.165,4,349,173.2,337,1 
49,2 

3810 DATA 212,242.3.260,260.1,295,240.2,233.168,2.250.1 >RT 

76,2,260,185,2,290,95,3,217,93,2,92,53,3.426,318,3 

5000 'PRINTEMPS - NORD >IH 

5005 eM75:REST0RE 5030 >8B 

5010 GOSUB 8900 >IF 

5015 LOCATE 2,1:PRINT"C0NSTELLAT10NS ET ETOILES VISIBLE >AZ 

S DANS LE CIEL DE PRINTEMPS A NOS LATITUDES' 

5020 LOCATE 1, 20 :PRINT"0": LOCATE 80, 20: PRINT'E": LOCATE >PC 

34,21 :PRINT«vers le Nord" 

5030 DATA 65,230,3,95,236,3,89,176,1.89,164,1,83,158,2. >EU 

76,166,1,78,179,3.113.163,2.96,124.1,83,140,1,83.158,0, 

0,0,0,78,179,0,65,230,0,0,0,0 

5040 DATA 133.91,1.145.98,2.152,106.3.131,113,1.119.119 >PH 
, 1,0,0,0, 152, 106,0, 147, 123, 1, 154, 129. 1. 147, 123,0, 139, 12 
8.1,0,0,0 

5050 DATA 199.120,1.199.129.1.202,140.2,188,142,1.199.1 >GH 
20.0,0,0,0 

5060 DATA 137,272.1,167,273,2.175.250.3,167.233,1,153.2 >JV 
42,1,152,231,2,127,218,2,0,0.0 

5070 DATA 254.370.0,240,357,1.224,316,1,237,285.1,230,2 >GC 
71,1,0,0,0 

5080 DATA 156.174.3,165,184,1.172,190,3,199.203,2.208.1 >VB 

96,3,221,196,2.233.194,1.0.0,0,208,196.0.191.175.2.183, 

165,1,0,0,0 

5090 DATA 242,80,0,225.113,3,250,116,3.266,124,3,0,0,0, >BU 
225,113,0,221.152,3.0,0,0 

5100 DATA 285,153.3,266.151.3.274.170,3.254,172,2.258,1 >HQ 
88,2,0,0,0 

5110 DATA 292.237.1.272.223.1,253.208.1.239,233,1,256.2 >VT 
33,1,272,223,0,0,0,0 

5120 DATA 303,157.1.316,155,1.344.168.2.336,189,2.306,2 >JG 
13,2,308,178,1,316,155.0,0,0,0 

5130 DATA 347.80.0.344,92.1.340,108.1,338.123.3,344,133 >EV 
,1,0,0,0 

5140 DATA 365.88.2.389,104.3.412.116.2.0.0.0.380.126,3. >BA 
389,104,0,404,87,3,0,0,0 
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5150 DATA 445,138,3,445,130.1,451,118.2.443,110,2.438,1 >VN 
22,1,445,130,0,0,0,0 

5160 DATA 524.108.2.506.124.2.494.146.1.476.158.2.466.1 >TZ 

46,3,457.157,1,0,0,0,545,152,1,530,146,2,506,159,2,491, 

175.1,476,158,0,0,0,0,494.146,0,506,159,0.0,0,0 

5170 DATA 525,198,1,537,200,1,542.188.3.542,188.1.537,1 )KA 

79,1,531.175,1.525,181,1.0.0.0 

5180 DATA 560,260.0,555,254.2,536,225.2,514.231,2,516,2 >JG 

47,2.538,259,1.0,0,0,516.247,0.491.252,1.0.0.0 

5190 DATA 461.290,3.435,302.3.423.312,3.404,320,3.357.3 )ZE 

32. 3. 365, 353, 3, 401 , 342. 3. 404, 320, 0. 0. 0, 0 

5200 DATA 320.253.3,338.246,1,356.247,1.367.253.1,376.2 )AX 

66.3,386,254,2.377.245,1.367.253,0.0,0.0 

5210 DATA 372,303,1,372,290,1.406.265,1.431.241,1,416,2 >RU 

25. 2. 398. 216. 2. 365, 218. 1 . 370, 200. 2. 410, 185, 1 , 428. 180, 3, 

432, 194,3, 416, 195,1, 410, 1B5.0, 1,0,0 

5220 GOSUB 15000 >DB 
5222 GOSUB 15100 >DE 
5225 RESTORE 5030:G0SUB 16000 >ïP 
5230 FOR 1=1 TO 19:READ a, b. nnt: LOCATE a,b:PRINT RM*: >GR 
NE2T i 

5240 DATA 6,16,Tau,14,19,Ari,21.16,Tti,31.l9.And,20,13, >YU 
Per, 16, 10,Aur,25,6,Lvn,30, 10,Cai,44, 14.Cep,30,16,Cas,39 
,18,Lac.52,19,Cyg,59,l8,Lyr,66,17.Her.70,14,CrB,62,9,Bo 
o,53,S,UHa,55,12,Dra,43,9,UHi 

5270 GOSUB 15100 > D H 
5300 'PRINTEMPS - SUD >YA 
5310 eM43:8EST0RE 5350 >ra 
5320 GOSUB 8900 >XK 
5330 LOCATE 2, 1:PRINT"C0NSTELLATI0NS ET ETOILES VISIBLE >AZ 
S DANS LE CIEL DE PRINTEMPS A NOS LATITUDES" 
5340 LOCATE 1,20: PRINT'E": LOCATE 80.20:PRINT"0":LOCATE >NG 
34,21:PRINT "vers le Sud" 

5350 DATA 140,80,0,128,96,1.111,86.1.96.106.1,0.0.0 >QZ 
5360 DATA 80.200,1,89,223.3,107,211.1,0,0,0.62.230.0,89 >yT 
,223,0, 73,246.0.0,0.0 

5370 DATA 154,243,1,159,262,1,182.260,1,0,0.0 >KM 
5380 DATA 159.140,3,170,158,2.180.180.2.200,186.1.213.2 >ZU 
05,2,0,0,0,134,152,1,140,166,2,164,194,2,161,216,2,0,0, 
0,180,180.0,164,194,0.0,0.0 

5390 DATA 206,115,2.224,128,2,219,142,2,203,140,2,206,1 >GL 
15,0,0,0,0 

5400 DATA 234,170,1,252,174,1,260,159,1,268,146,1,260,1 >JY 
37, 1, 248, 144, 1 , 260, 159, 0, 0, 0, 0 

5410 DATA 348,283,2,332,292,1,318,284,1,320,273.3,265,2 >EC 

71 , 2. 230, 244, 3, 264, 254. 2, 320, 248. 3. 330. 262. 1 . 320. 273. 0. 

0,0,0,320,248,0,343,237,1,357,241,1,0,0,0 

5420 DATA 321.198,1.335.195.1.343.180.1.321.198.0,0.0,0 >«L 

5430 DATA 176.80,0, 181. 92,1. 187.100,2.194, 95,1,274,131, >CG 
1,284,152,2.319,150,1.356,178.3,362,194.1.372.206.1.383 
, 208, 1, 388, 213, 2, 401 , 212. 1 , 400, 202, 1 , 392, 201 . 2. 383. 208, 
0,0.0.0 

5440 DATA 413,104.1,410,113.2,407.129.1.0.0,0.384.80.0. >BU 
410,113,0,394.116,1,0,0,0 

5450 DATA 476,80,0,497.98,1,482,104.1,474.116.3,464,102 )«A 

,1,454,87,1,0,0,0,474,116,0,468,128,1.473,136,1.0,0,0 

5460 DATA 549,135,3,545,107,3,519.117,3.531.135,3.542,1 >RL 

35,3.549,135,0,556,147,3,536,170.3,531,135,0,0.0,0 



S4/0 DATA 467.200.3.481.206.2.0.0.0 Hit 

S480 DATA 470.2/1, 3,488,283,^^)4, 263, 244, 2,S36,2 >IA 

3Û.2,S22,2tS,2,500,236.U4ad,24/,2, 470,271, 0.0,0.0 

S490 DATA 373.298,1, 385.273.1,3m. 261, 1.417,241,1.0.0.0 >DJ 

,303,261,0.377.239,1.0,0.0 

5500 DATA 392,368,1,376,351,1,371,338,1.0.0.0 >KB 
S510 DATA 320,314,1,318.332,1,284.326,1,0,0,0 >KC 
5520 DATA 211.343,2. 189, 330. t. 1,0.0 >AH 
5530 GOStfB 15000 >Df 
5532 GOSUB 15100 /W 
5535 BESTOBE SJ50:Gf)SUB IbOOO ] 
5540 FOR 1 = 1 TO 18:BEAD â,b,nuel:LUUÎfc *.&:NllNT noet: /GV 

en i 

55S0 DATA lû, 1 /,Llb, 11. 10,Boti, U. tf.ftl M. l f.Ci «,30, U W 
,Cît.37,ie.Hy*.2i.6.C<».26.5,CVf>.35. 11 . Léo. JG. 4. Llli . 43. 
S.Lyn.bl.B.CncJBJil.Sei^M^.rviP.S^ie.Cflâ./l.ie.Un. 
58,14,CHi.64,8.(;et 

5580 GûSuB t5lOO:2£TOM >ÎT 
5600 ' ETE - NOfiD >th 
5610 *>l60:RESÎ0Rt 5650 >if 
5620 GÛSUB 6900 >YC 
5630 LOCAtt 5,l:PR!KrC0N5TELUT!0NS ET ETOILES YI5IBU >AL 
S DANS LE CIEL D'ETE A *0S LATITUDES' 

5640 LOCATE l,2O:WINT«0Vlj0CAT£ B0,20:FMWE':L0CArE >0C 
34.2l:P«llcrv*M le tard* 

5650 DATA 87.115.1.71,121,1,^.143.3.86,158.1.86.170.2. >NU 
96. 177. 1. 104.170. t. 1Û4, 15«,2.0.0.0.44, 200.0.50. 190.2. /5 
,143.0.0.0.0.53.215.0. 74. 196.2,86. t A). 0,0.0,0 

DATA 127,80,0,116,98,1,125,112,1,129,134,1,0.0,0.1 >VB 



16.99,0,101,94,1.0,0.0 

5670 DATA 170,80.0,158.96.3,177,110,2,186.96.1,200,60,0 'Cl 
,0.0.0 

5680 DATA 224,60.0,230,96. 1.23S, 111, 1.2S4. 114,3.266. 111 >UE 
,1,263.100,1,272.96,1.278.90,0.0,0.0 

5690 DATA 140, 150. 1.152. 169.1. 118.1». 1, 202. 161. t.JJf, * M 
61,1,266,170,1.288.166,1.0,0.0 

5700 DATA 125,212.1.132.231.1,119.241,1,0.0.0 >JV 

5710 DATA 145,312,1.161.296,3.0,0.0 || 

5720 DATA 221.3i6.i.^i.iu. J.227.303. J.224.2Ô7. >1& 

60,3.206.260.3.203.264.3.224.287.0.0,0.0 

5730 DATA 320. 2S2. J,3Z9,26S. 1, 326,278, 1.316,287, 1.302,2 >AC 

93,3.311.305.2,322.297.1.316,287,0,0.0.0 

5740 DATA 266.268. 1 .275,293. 1.281,322, l. 313.360. 1.354.3 >TD 

52,2,365,332.2,350,305,1,380,302.2,395,329,1,404,344,3, 

392.350.2.386.338,1.395,329.0,0,0,0 

5750 DATA 320,80,0,322,108,2,342,118,3,361,135,2.356.14 >£K 

7.1,0,0,0,342,118,0,369,89,2.362,80.0,0.0,0 

S760 DATA 317,215,1. 330,lite. 1.344.174,1. 323.161. 1.314,1 >VM 

82,1,330.199,0,0,0.0 

5770 DATA 364,182,3,385,175,3,386,194,3.404,182,3,407.2 >HF 
02,3,0.0.0 

57B0 DATA 416.224,1,418.236,1.406.256,2.385,255,2.356.2 >«U 
42.2,394.231.1,418.236.0,0.0,0 

5790 DATA 473.252,3.487,266,2,506.264.1,516.296.2.0,0.0 M 
,473,264.2.487,265,0,503.246,2.0,0.0 

5800 DATA 3W, 108.3,440, 105.3,467, 105, 1,458, 105,3,0.0.0 >UH 
,440, 105.0.439, lit», 1.437. 12a. 1. 0.0,0 

LfilO DATA 4b4.r.b. 1.467.203,1.462.202.1.498, 199.1,0.0,0 >9A 



OFFRE EXCEPTIONNELLE : 4 CASSETTES POUR 100 F !* 
Unt ca ssette com pre nd les jeux, éducatifs ou utilitaires qui ont été publiés ùum le numéro CPC cor respondant 



3 ; Char d'assaut - Consommai™ de carburant - Fonction arcle 

4 Redet'car - Carré magique -Inique anglaxvlrançais - Ma/e 

5 : Cherry Part - Morpions - Moubnd - Jeu de ta Vie - UMajre* de f» 
oop« d'écran - Macfipo*e 

6 : Cherry Paint - Amstus- Traceur de graphique - Tratalgar 

7 : Cherry Fam! - Dtâcut - Conjugaison - Calcul - Coldttz - Double hauteur 
Référence croisée des vanabtes basic 

8 Cherry Paint - Totect - Numérotage - Qtscolhèque 

9 -.Cherry Part - Creedaia - Seoent Madness 

1 0 : Cherry Paint - Catalogue Disk Prmter - Analyse - Mundial 86 . Arbre 
généalogique 

! 1 : Ciel - Cherry Paint - Casser été de râne - Medor - Multi ficher 

12 ! Cherry Paint - Mozart - Louisiane -Pro<dr*c- &k disk 

13 : Localaalon des ptanetes - Cherry Pami - Courbes - E*ten*ons tw- 
s»c et spnte - Edimusic 

15 : Cherry Paint - Gemaine - Moniteur de disquette - Boîte à rythmes 
16:* 



Je commande k*s\s) ne 4 cassettes a 100 F le loi 

Numéros des cassettes souhaitées : 

Si une des cassettes étal épuisée , je désire a la place 
la cassette n* 



20 : Relief - Vision Tri pour Bankmanager - Cal a.* k - Rfltef 
2t • Monnaie - Cnrydô - Demo-ins - Stradamus* - Dis - Cas - C rude- 
ment des RSX Bankcpen Barkread BaoKwrie. BanWirm 

22 ; Tournoi de fléchettes - Emulateur mr ( (tei - Technique des <W& 
ques - Recherche documentaire - Anti-erreurs - Histoire 

23 : Antherreufs - CAO 30 - 30 ymkes - Photo- spnte - Relief - M 

24 CAO 3D - Ant. erreurs - '000 Bornes - Justification - T*e*ty 
Copy - Trames et coibges - Graphonanc* - Machines 

25: CAO 3D- Amsrylhm- Trots des - Générateur oe tw*-jî- s^*>. 
trie - Générateur de spnles ( 1 > - Penetror 

26 : CAO 3D - Anti erreurs - Catalogue - Conjugue - Tchemms- 
land - Fenêtres symétriques - Graphiques 

27 : CréaTion et anima* ion de sppves - à/ïîweurs - CAO 3D - CMraperv 
naî - Actions 

28 i Ant. erreurs il - Routines machines - CAO 30 - j .cmers - Gêner*** 
de sprites - Catprog 

29: Les fichiers - Anti-erreurs 2- Astronome planeîa >b 
30 - Carprog - Penlom.nos 



Nom 

Adresse : 
Code postal 
Oele _ 



-'i ef ont 



Ville _ 
Signature 



Bon de commande a retourner accompagne d'un chèque à tordre des Editons SORACOM a l'adresse suivante 
Editions SORACOM - La Haie de Pan - 35 1 70 BRu7 



Tei xxmiram 4t» tomj oouf n*3onsa&e de < 



tmi*m dm brr*fon f 5 fovr§ à técêotion dm |t ûomtMmàm 



5820 DATA 506,80,0,536, 101,2,548,112, 1,554, liB, 1,573,13 Mffl 
1,1,563,155,1,554,118,0,0,0,0,536,101,0,506,122,2,518,1 
28,3.520,134.1.518,155,1,515,170,1,0,0,0,506,122,0,504, 
143,2,502,156,1,1,0,0 

5830 GOSUB 15000 > DJ 
5832 GOSUB 15100 >EB 
5835 BESTORE 5650: GOSUB 16000 >IF 
5840 FOR 1=1 TO 18:READ a, b.noil: LOCATE a , b : PS 1 NT DM$: >GY 
NEIT 1 

5850 DATA 6,16,Leo,17,10.U1U7,7,CVn,10,19.Cnc,20,18,G >BL 
ei,30,17,Aur,25,14,Lyn,25,6,UHa,40,5,Dra,37,9,UMi,36,12 
,Cai,41,17.Per,4B,8.Cep,48,16,Cas.52,lB,And.72,19,Peg,6 
l,12,Lac,65,9,Cyg 

5880 GOSUB 15100 >EE 
5900 * ETE _ SUD >YG 
5910 e=l*7:REST0RE 5950 >8T 
5920 GOSUB 8900 >YF 
5930 LOCATE 5, 1 : PB I HT"COMSTELLAT l ONS ET ETOILES VISIBLE M 
S DANS LE CIEL D'ETE A NOS LATITUDES" 
5940 LOCATE 1,20:PRINT'E":L0CATE 80. 20: PB INT'O": LOCATE >NZ 
34,21:PBINT"vers le Sud" 

5Ô50 DATA 88,167,1,85,176.1,79.185,1,68,182,1.76,174,1, >NQ 
85,176,0,0,0,0 

5960 DATA 112, Uu,Z, 116, 160, 1. 120. 177. 3, 122, 188,2, 145,2 >TW 
06,2,0,0,0, 157, 158,2, 120, 177,0,0,0,0 

5970 DATA 86,208,1,97,208,1.110,217.1,0,0,0,110,207,1.9 >LL 
7,208,0,0,0,0 

5980 DATA 89,266,0,100,262.1.108,257,1.122,248,2,0,0,0 >VL 
5990 DATA 178,310,3,173,302,1,173.291.2,161,285.2,164,2 >VL 
99,1,173.302,0.0,0,0 

6000 DATA 254,261,2,245,288,2.252.302,2,243.323.2,230.3 >TU 

20, 2, 226, 334, 1 , 0. 0, 0. 296. 266, 1 , 27B, 276. 2. 266, 304, 2. 264, 

332,1,243,323,0,0,0,0,252,302,0,266,304,0,0,0,0 

6010 DATA 235,235,3.228,209.2.265.158,2.295,175,2.319.1 >UL 

98,2,0,0,0,294,155,1,295,175,0,0,0,0 

6020 DATA 290,80,0,295,103,3.300,116.1,303.127,3,316,13 >ÏG 
2,1,309,152,1,320,151,2,316,132,0,330,140,3,332.116.2,3 
16,132,0.333,126.1,332,116.0,0.0.0,330,140.0.320,151,0. 
0,0,0 

6030 DATA 362.110,1.362.122.1.379,128,2.386,155.2,373.1 >BV 

76,2,353,165,1,338,169,1,0,0,0,386,186,1,373,176,0.0,0, 

0 

6040 DATA 344,200,1,338.225,1.353.230.2.365.233.1,349.2 >QX 

54,1,358.260,1,347,266,1,338,260,1,349,254,0,0,0.0 

6050 DATA 339.314,1.349.302,1.344,291.3.336,290,1.328,2 >JU 

90,1,321,293,1,320,302,1,0,0,0 

6060 DATA 416,244,1.428.260.3.422,294,1.419.314.2.389.3 >NP 

26,2,374,302,2,402.273,2,428.260.0.446.254,2,0.0.0.428, 

332,1,419,314,0.0,0,0 

6070 DATA 419.80,0.398,95,1,367,105,1,0,0.0 >HU 
6080 DATA 516.255.1,494.264.1.488.248,1,0,0,0 >K« 
6090 DATA 599.190,0,582,192,2,542.191,3.562,177.2,608.1 >H0 
59,0,0,0,0 

6100 DATA 455,146,3,470,157,1,492,161,2,506,161,1,530,1 >AN 
66,2,0,0.0.492. 161,0,488, 180,2.453. 17B. 1.438, 167, 1,0,0. 
0,491,200,2,488,180,2,1,0,0 

6110 GOSUB 15000 > DA 
6120 GOSUB 15100 )DC 
6130 RESTOBE 5950:G0SUB 16000 >ÏX 
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6140 FOR i=l TO 16:READ a, b.noil: LOCATE a,b:PBINT noiJ: )GP 
NEXT 1 

6150 DATA M5. Del. 12,11. See.17. 16. Aq 1 . 15. 8, Cyg.21,9. Ly >UZ 
r,32,13,0ph,30,4,Her,40,5,CrB,45,12.Ser,33,19,Sco,52,19 
,Hya,50,17,Lib,60.17.Vir.55,7,Boo,63.11,Cai.71,16.Leo 
6180 GOSUB 15100:RETURN >TP 
6200 ' AUTOMNE - NORD )YA 
6210 e=176:REST0RE 6250 > 8G 
6220 GOSUB 8900 )ÏK 
6230 LOCATE 5,1:PR1NT"CÛNSTELLATI0NS ET ETOILES VISIBLE >VA 
S DANS LE CIEL D' AUTOMNE A NOS LATITUDES" 
6240 LOCATE 1 , 20 : PR I NT"0" : LOCATE 80.20:PRINT"E":L0CATE >PH 
34,21 :PfilNT"vers le Nord" 

6250 DATA 52,80,0,58,108,2,74,105,1,85.106,1,87,135,1,9 >ZU 

7,140.1.88.145,1,80.140,1,87.135,0.0,0.0 

6260 DATA 80,158,1,85,171,2,115,197,3,136,214,2.125,233 >HV 

,3,122.254,1,140.253.1,0,0.0.47.197.1,78.207,2.103.211, 

1,125,233,0.0,0,0,103,211,0,115,197,0,0,0,0 

6270 DATA 140.171,1,134,164.1,125.159,3.119,161.1.116,1 >JH 

65,1,116,176,1,122,183,1,0,0,0 

6280 DATA 122.86,1,144,101.3,148,142.3.152.171.3,176,18 >JR 
2,3,184,159,3,168,138,1,144,101,0, 161,97,2,0,0,0,184,15 
9,0,199,159,1,0,0,0 

6290 DATA 212,134.1,232,138.3,0.0.0 ML 

6300 DATA 212, 170,3,230, 177,3, 250. 177, 3.265. 171. 3,302. 1 >ZX 

69,3,294,150,3,266,153,3,265.171,0,0.0,0 

6310 DATA 326,248,3,311,253,2,296.250,2,276.237,2,265.2 >AD 

27,3.254.236,2,272,250,2.276,237,0,0.0,0 

6320 DATA 297,201. 2,287.214,2.254,205.2.220,217,2.228.2 >BP 

42,3,237,261,3,270,271.2.262.296,3.209,283,1,190,278,3, 

194. 261 , 2, 207, 266, 1, 209, 283, 0, U. 0, 0 

6330 DATA 143,317,1,149.313,1.158,326,1,0,0,0.149.313,0 >PH 
,152,302,3,0,0,0 

6340 DATA 198,348,2,206,333,2,0,0,0 MB 
6350 DATA 328,344,1,344,321.1.340,281.2,310.309,2,299,3 >JC 
26,2,328,344,0,341,344,1,0,0,0 

6360 DATA 347,231,1,367,248.1.391.260,1,404,228,1,382,2 >UM 
24,1,367,248,0,0,0,0 

6370 DATA 404.275,2.422.288,2,403,297.3,417,310.3.392,3 )HY 
19,3,0,0,0 

6380 DATA 355,80.0.359,92,1,380,112,1,389,144.1,380,168 >TG 
,1,388,182,1,0,0,0 

6390 DATA 465.153,2,443,170.3,455,188,3,467,192.1,467,1 >KX 
82, 2, 479, 182, 1 , 492, 165, 2, 0, 0, 0 

6400 DATA 563,142,2,545,134,3,507.125,2.500.146.3.544.1 >BG 

46,1,563,142,0,564,140,1,574,154,1,542,205.2,544,146,0, 

545,134,0,0,0,0 

6410 DATA 560,223,1,553,230,2,541,229,3,530,217,1,524,2 >ZD 

07,1,0,0.0.541.229.0,518.224.1,512.227.1,0,0,0,518,224, 

0,518,224,0,518,217,1.0,0,0 

6420 DATA 509,206.1.502,205.1,490,207.2,464,228.2.464.2 >UC 

42,3,455,250,2,445,257,1,0,0,0,464,242,0,493,235,2,502, 

232.1,0,0,0 

6430 DATA 520,254,1,512.265,3,523,271,1,534,274,1.520.2 >GF 
54.0,0,0,0 

6440 DATA 490.279,3.517,301,3,504,304,1,494,296,1,1,1,1 m 
6450 GOSUB 15000 ,DH 
6460 GOSUB 15100 >DK 
6470 RESTORE 6250.-G0SUB 16000 >n 



6480 FOR 1*1 TÛ 20:READ a, b.noi*: LOCATE a, b:PRlNT no»*: >GB 
NEIT 1 

6490 DATA 6.t7,Ser,10,ll,Her.21,7,Lyr,16,14,CrB.22,18,B >UF 
oo,27,18,CVn,34,14,UNa,25,10,Dra,36,9,UMi,27,4,Cyf,3M 
,&>p,43,12.Cai,50,4.Cas,55,16,Aur,5O.16,Lyn,66.l9,Tau.6 
7,10,Art,S5,12,Per,61,9,Tri,58,7,And 

6500 GOSUB 15100 >M 
6510 ' AUTOMNE - SUD >YE 
6520 e=200:RESTORE 6560 >8C 
6530 GOSUB 8900 >W> 
6540 LOCATE S.ltPRINrCQNSTELLATIONS ET ETOILES VISIBLE >VE 
S DANS LE CIEL D'AUTOMNE A NOS LATITUDES* 
6550 LOCATE 1,20:PBINT«E":L0CATE 80.20:PRINT , Q":LÛCATE >NÏ 
34,21:PBlNT"vers le Sud* 

6560 DATA 65,80,0,72,94,1.80,104,1,97.109,1,101.96,1.10 )KD 
4,81,1,0,0,0 

6570 DATA 184,92, 1,209, 112, 1,232, 102, 1, 215,80,0,0.0. Û >TR 
6580 DATA 107,172,1.100.152.2.91,165.1.74.161,1,73.151, >NÏ 
1,86, 146, 3, 100. 152,0, 106, 145. 3, 142. 129, 1, 158, 116. 3. 188. 
131,3,203, 140, 1,212. 146, 1,203. 164. 1, 169, 143.2. 158, 146, 1 
,0,0.0.158.116.0.156,99,1,0,0,0 

6590 DATA 135,220,1,131,226,2,120,230,3,106,221,1,102,2 )XH 

12,1,0,0,0,120,230,0,93,234,1,86,242,1.0,0,0.93,234,0.8 

3,232,1,0,0,0 

6600 DATA 187,250,1.177,249.1,168.243.1,172.238,1.174.2 >BV 
28, 1, 160,224, 1, 154,207, 1, 148, 194, l, 146, 183, 1, 158, 188, 1, 
170.194.1,189,195,1.202,196,1,220,201.1.236.201.1.250,2 
07,1,262,209,1,263,203,1,255,195,1,245,192,1,250,207,0, 
0,0,0,262,209.0,272,218,1,0,0,0 

6610 DATA 102.260,1,105.275.2.117,275,1.133,272.1,102.2 >GJ 
60,0,0,0,0 

6620 DATA 125,302.0,168,286,3,190,278,1,212,276,3,0.0.0 >UA 
,168.286.0.168,296,1,161.306,1,0,0.0 

6630 DATA 210,236,2.269,248,2.289.239,1,295,237,1,341,2 >QU 
33, 3. 314, 230,2. 295. 237. 0,0.0, 0, 269. 248. 0. 268. 286, 2. 290, 
290,2,305,294,1,0,0.0.268,286.0.273,275,1,278,270,1.302 
,274,1,321,276,1,0,0,0 

6640 DATA 296.365.1.291.355,1,294,338,1.306.321,1,0,0.0 >yA 

6650 DATA 314,80,0.305,95,1,288,99,1.279,104,1.283.117. >DV 
3,302.121,1,332,80,0,0,0,0 

6660 DATA 392.170,1, 380.177, 1,355,192,2.323.206. 2,310,1 >LW 

95,1,303,208,1,288,203,1.278,186,1,260,179,1,250,165,1, 

260,151,3,280.158,1,284,171,1.285.176,1,278.186,0,0,0.0 

6670 DATA 414,158,1,400,146,2,367,152,2.353,160,1,341.1 >HZ 
55, 1,331. 160.2,338, 139, 1,352, 138, 1. 380. 125, 1,400, 146,0. 
0,0,0 

6680 DATA 380,206,1,386,223.1.374.221,1,380.206,0,0.0.0 >WH 

6690 DATA 412,188,2,434,203,1,443,212,3,452,220,2,481,2 >UA 
19,2,0,0,0.443,212.0.462,176,2.0,0,0 

6700 DATA 410,230,1,416.242,1,412.254,1,397,259,1,399,2 >VG 
43.1,416,242,0,0,0.0 

6710 DATA 473,247,1,462,241,1,450,242,1,0,0,0.462,241,0 >PH 
,473.236,1.0,0,0 

6720 DATA 404,344,3,424,321,2,446,296.2.455,266,1.476.2 )JN 

77,2.0.0.0, 407,312.2, 424.321, 0,449, 335,2,0. 0,0 

6730 DATA 507.304,3.506,297,1,506,285,2,493.281.2,494,2 >HR 



96, 1,506,29/, 0,0,0,0 

6740 DATA 524. 60,0.530.152,2, 542. l?b,2,Û,0, 0.576,175,1, >CD 
592,184.1.601,181.0,0,0,0 

6750 DATA 555.80,0,568,112,2,1,0,0 >ZV 
6760 GOSUB 15000 >Efi 
6770 GOSUB 15100 >ED 
6780 RESTORE 6560:G0SUB 16000 >XG 
6790 FOR 1=1 TO 20:EEAD a,b,noi*:LQCATE a,b:PRlNT ItHt: >G« 
NEÏT i 

6800 DATA 8,18,En,16,16.Cet.9,12.Ari.l5,10,Tri.23.7.An >0G 
d,23,12,Psc,38,9,Peg,40,5,Lac,38,14,Aqr,28,18,Scu,42,19 
,PsA,51,17,Cap,59,13,Aql,46,ll,Equ.5Û,8,Del,61,10.Sge,4 
8,5,Cyg,63,9,Lyr,69,13,Her,70,17,Oph 

6810 GOSUB 15100:RETURN )TP 
6900 ' HIVER - NORD >YH 
6910 e=142:R£ST0RE 6950 >RP 
6920 GOSUB 8900 >YG 
6930 LOCATE 5, l:PRINT"CONSTELLATI0NS ET ETOILES VISIBLE >QR 
S DANS LE CIEL D'HIVER A NOS LATITUDES" 
6940 LOCATE 1.20:PRINT"Q":LÛCATE 80,20:PRINT"£":L0CATE >QG 
34,21 :PRIHT"vers le Nord" 

6950 DATA 44,159,1,63,142,1,45,143,1.44,153,0,41.182.0, >LY 

85,202,2,91,200,1,103.193,2,0,0,0.85,202,0,80,187,1,88, 

176,1,98,167,1,0,0,0 

6960 DATA 180.176,3,177,149,2,176,124,1,177.109.2,178.8 >HQ 

4,2.0,0.0,155.149,2,177.149,0,200,151.2,0.0.0 

8970 DATA 223,113,3,215,107,1,210.98,2.197.97,2,207.109 )TF 

,1,215,107,0.0,0,0 

6980 DATA 128,207,1,147,219,1.165.224,1.176.221.1,0,0,0 >yP 

6990 DATA 212.230.1,233,245,1.282.256.2.254.227.2,230.2 )JH 
15, 2,212, 230, 0, 209. 245, 1 , 0, 0, 0 

7000 DATA 213.266,3,206.287.3.232.283,3,233.302.2.258.2 )HB 
91,2,0,0,0 

7010 DATA 299,373.0,295,367.2,278.357.3.263,371,0,0,0,0 >UX 
,278,357,0,269,340,2,263,327,1,0,0,0 

7020 DATA 392,60,0,392,101,1.0,0,0 >ZZ 

7030 DATA 322.200.1.315.188.1.329.182.2.338,192,3:322,2 >ZC 

00,0,313.210,1,306.230,1,320.250.3,0,0.0 

7040 DATA 384,206,1,369,199,1,360,166,1.338.139.1,308.1 >RG 

48,2,292.160.2,284. 189. 1,260. 181.2,260. 152. 1.263. 134.2. 

278,128,2,278,146,1,260,152,0,0,0,0 

7050 DATA 320,283.1.308,302,1.305,328.1.343.322.1.338.3 >VJ 
06,1,308,302,0,0,0,0 

7060 DATA 401.136,3,398,155.3,404,164.3.413.180.2.417,2 >ZU 

08,3,437,200,3,430,176,3,413,180,0,0,0,0 

7070 DATA 387,310.1,415,304,1.448.300.1.479.266,1.491,2 >K.F 

38,1,518,225,1,535,232,1,0,0,0 

7080 DATA 442,116,1,452,133,3,0.0,0 >AN 

7090 DATA 560,165,2,545,168,1,536.152.1.542,140,3.520,1 ;CD 

15, 2. 503. 89. 3, 532, 104, 2,5 70, 128, 3, 555 . 140. 1 . 542, 140 , Û, 0 

,0,0,570, 128,0,584, 139, 1,587, 153, 1,0,0,0 

7100 DATA 515,152,1,510,164.1,520.179.1.0,0.0 )KB 

7110 DATA 578,218,1,579,227,0,0,0,0,528,254,1,554,255,1 >HM 

,562.253,0.0,0,0,500.311,3,0,0,0.401.362.3.1.0,0 

7120 GOSUB 15000 >DC 

7130 GOSUB 15100 >DE 

7140 RESTORE 6950:G0SUB 16000 >ÏA 

7150 FOR 1=1 TO 1 7 : BEAD a,b.noi*:LOCATE a.b:PRINT noil: >GT 
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NHT i 

7160 DATA 9,12,Peg,19,10.Lac,l8,18,Cys,28,17,Lyr.30,13. >U« 
Cep,25, 6, Cas, 38,4, Per, 42,8, Cai,4l, 11, UHi, 38,18, Dra,52,l 
l,UHa,45,19,Boo.55,16,CVn.S5.8,Lyn,65,8.Cnc,62.14.LHi,7 
1,19, Léo 

7170 GOSUB 15100 >oj 
7200 ' HIVER - SUD m 
7210 e=225:REST0RÉ 7250 >RD 
7220 GOSUB 8900 >yj 
7230 LOCATE 5.1:PRINT"C0NSTELLATI0NS ET ETOILES VISIBLE >QK 
S DANS LE CIEL D'HIVER A NOS LATITUDES" 
7240 LOCATE l^O.-PRINT^rLOCATE SlUOiPRINT'O-.-LÛCATE )NU 
34,21:PRINT"vers le Sud" 

7250 DATA 50,80,0,55,98,1,52.114,1,57.124,1,67,131,1,75 >MH 

,135,1,82,147,1,72,151,1,65,141,1,67,131,0,0.0,0 

7260 DATA 47.166,1.47,193,1,65,188,1,0,0,0 >GC 

7270 DATA 128,182,3,135,196,1.0,0,0 >AB 

7280 DATA 106,248,3,112.271,2,137,266.1,163,262.2,177,2 >QT 

56,2,173,235,2,152,236,1,140,236,2,106,248,0,0,0,0 

7290 DATA 164,93,3,158,103.1.170,106.3.182.140.3,166.14 >ZE 

0, 1, 161, 151, 1,0,0,0, 191,89, 1, 182, 102,3, 187, 115, 1,202, 14 

3, 3, 235, 100, 2, 0. 0,0. 170, 106, 0, 182, 102, 0, 0, 0, 0. 182, 140,0 

,202,143,0,0,0,0 

7300 DATA 227,186,3,233,194,3.239,200,3,243,218,3,212,2 >QV 

18,3,227,186,0,227,162,3,253,169,3,239.200,0,0,0,0 

7310 DATA 221.125.1.229,121,1.237.124,2.235.132.2.224,1 >RJ 

40,1,218,135,1,0,0,0,237,124,0,260,123,2,254,142,2,235, 

132.0,0,0,0,260,151,1,254.142.0.249,153,1.0,0,0 

7320 DATA 258,178,1,266,188,2,268,178,1,284,185.1,266.1 >CU 

88, 0.0.0,0,289, 185, 1,314, 182, 1.32?, 164.2,0.0.0. 314, 182, 

0,339,175,1,352,175,1,352,176.1.368,172,1,385,171,1,382 

, 156, 1,378, 150. 1.370, 142, 1. 362. 137, 1,347, 142. 1.335. 141. 

1,323,135,1,314,132,1,307,133,1 

7330 DATA 295,117,1,312,110,1,354,108.3.362.99.1,375.80 >EH 
,0,0,0,0 

7340 DATA 226,312,2,229,339,3.266,35^,3,277,346,1,265.3 >KT 
35,1,274,333,2,278,310,2,0,0,0 

7350 DATA 338.305.1,328,317.1,332,332.2.350,353.2.374,3 >KH 
68, 3, 374, 332, 2, 374, 316, 1 , 0, 0, 0 

7360 DATA 292,258,3,300,267.1,343,285,2.368.240.1,338,2 >«F 

41,1,316,259,1,300,267,0,245,287,3.240,261,2,292,258,0, 

308,254,2.316.259,0,0,0,0 

7370 DATA 399,218,2,400,231,1,385,233,1,368,225,1,380,2 >JU 
22, 3, 399, 218. 0, 416. 230. 1 , 429. 205.1.454, 167, l, 458, 158, 2. 
495,142.1.495.117.2,482.117,1,467,123,3,434.151,2.429,1 
70,1,411,190,3,399,218.0.0,0,0,434,151,0,419,140.1,0.0. 
0 

7380 DATA 460,80.0.456.97.1.0.0.0 >Y0 
7390 DATA 496,242,1,485,242,1.479,240,1.477.233,1,472.2 >VR 
25 , 1 , 464. 229, 1 , 454, 225 . 1 . 429. 205. 0. 443. 206. 1 . 452. 209. 1, 
470,207,1,481,197,1,493,191,1,502,179,1,515,177,1,524,1 
70, 1,515. 165, 1.503. 164. 1.495. 172. 1,502, 179.0.0.0,0,524, 
170,0,536,173,1,0,0,0 

7400 DATA 446,239.1.443,248.2.427.256,3,416.248,1,410,2 >FZ 

42,1,0,0,0,427,256,0,395,259,1,389,266,1,0,0,0.395.259, 

0,386.255.1.0.0.0 

7410 DATA 444.282.1,417,301,2,431.306,1.437,293.1.444,2 >HC 
82.0,0.0,0 

7420 DATA 434.326,3.480.291.3,502,258,2,527.247.3,0.0,0 >UA 



.480,291,0,485,306.1. 477,320.1. O.O.O 

7430 DATA SlV209,2.S59, 185.2.575,224,2.562.218, 1,566.2 

», »,0.0.0.5Sd. I8S.0.5S1. 156. 1.584. 152. t. 614. 146.Û.0.0. 

0,584.152,0,505,139,2.614.134,0,1.0.0 

7440 COSU» 15000 

7450 COSUI 15100 

7460 BESTORE 7250:G0SUB 16000 

74 70 FOB 1=1 TO 18:IEA0 i.b.noil: LOCATE a. tiPRIMT Mflfl 
KJT I 

7480 DATA l0.18.Hy«.8. 15. Cnc.l8.14.CH». 18.17. C1U.18.8.G 

••,33,12,0rl,32,l9.Lep.36,lb,Erl.35,lû.Tâu. < :4.5.Aui,40. 

3.Per.52.l8.Cet.59.19,Scu.50.8.Ari.50.6.Tn.i.i.4.And.64 

,16.P*c.67,l2,P«| 

7400 GOSUB 15100:fi£7UtM 

8900 'AFFICHAGE VOOTE CELESTE 

8910 CLS.BODE 2 

8920 FOI 1=20 TO 620:PL0T u80:KEn i 
8830 F08 i--0 TO PI STEP 0.01)5 
3940 PLOT 320«30O«COSU).80«30Oi5l».i):MEIT i 
8950 BfTUBN 

9000 'CHOU D'UNE CONSTELLATION 
9010 CLS:WOE 2 
0020 BE5TÛ1E 9000 

9021 FOB i=0 TO 639:PL0T l,0:PLOT i, 38: PLOT UttHMtt 
1 

9022 FOi i=0 TO 3/ï:PL0T O.nFLOT 639.i:NEXT 

9023 FOi 1-36 TO 3?2:PL0T 3l0.l:NElT 1 

9030 LOCATE 13.1:P8INT'C0«STELLATIMIS DE L'EJUSPHÉiE BO 
BEAL ET EQUATOBIALES' 



>0M 

m 

>C2 



'TV 

m 

>0L 

m 
M 

>CF 
;YB 
>BA 
>LV 
>2H 

)BA 

>E2 

m 



9040 FOB M TO 20: REAÛ m»l.»brl: LOCATE 2.2m:PBiKT i ?CC 
: LOCATE 6.2M:PBWT notliLOCATE 35.2M:PiIlfT abrl:«UT 
l 

9050 FOB i=21 TO 39: BEAU nott.jbrl: LOCATE 40. i-16:PBINT -El 
It LOCATE 44,118:P8IKT no»l :i i)CATE 76. l-tB:PBIHT ibrl: 
MOT i 

9100 DATA L'Altl«,A«I.Andro«ld»,An8.U pleine. Cet. U B -SB 
filer. Arl. Le BouvUr.Boo.Le C»ncer.Cnc.C»iJloclÊ,C«s,Cl 
phle.Cep.Les Chiens de Châtse.CVn.Le Cocher. Aur.U Coui 
onne Borlale.Crl.L» Cvfne.Cyf.U bauehln.Dcl 
9110 DATA Le Dmon.Ora.U FI lche,5(e,Les Glaeaut.Uea.L H| 
• Girafe, Cai.La Grande Ourit.UfU.Hercule.Her.L'Hvdre Fe 
■elle.Hya.Le LIzard.Uc.La Licorne. «on. Le Lion. Léo. Le L 
vni.Lvn.U L»r«.Lfr,Uc>hiucr.us.Dph 

9120 DATA Orioa.Ori.PI(ase,Pe«.Péts«e,Per,U Petit Chev >¥U 
al.Equ.Le Petit Cbien.CHi.Le Fetlt Lion.LMi.La Petite 0 
urse.UWI.Les Poi «sont, Pie, Le Seitant.Sei.U Taureau. Tau 
,U Tete du Serpent. Ser. Le TrlaoflcTri.U Vierge.Vir 
9170 LOCATE 10.24: iNPOTTaiwr le NI de la constellation >UH 
choisir (0 retour au IENUI*:chol« 

9180 IF choi«(0 01 choli;40 THE* GOTO 9170 JA 
9190 IF Oholrtl THEH BCTUBM eM 
9200 ON choit GOSUB 10000. lOlOO, 10200. t0300. 10400. 10600 -JC 
. 10600. 10700, 10800, 10900. 1 1000, 11100, 11200. 11300. 11400. 
1 1500, 1 1600, 1 1 W. 1 1800. 1 1900. 12000. 12100. 12200. 12300. 1 
2400, 12500. 12600. 12700. 12800. 12900. 13000. 13100. 13200. 13 
300. 13400. 13600. 13600. 13700. 13800 

9300 arro 9000 >hj 

10000 • AIGLE >CC 




NOUVEAU : ECHANGEZ VOS JEUX 
SANS PAYER UN CENTIME M! 



ENCORE MIFtJX, ENCORE PLUS ECONOMIQUE, HOUR ECHAN- 
GER VOS JEUX SANS PAYER UN CENTIME, PROCÉDEZ DE LA 
FAÇON SUIVANTE 

- faites, ro'onnfi de gaucfte ta liste (tes jeux 470e vous souhaitez 
êLoan&ic (il unçine ef comvWs). 

puis faites colonne de droite, la stfecfion des /eux que vous 
vouiez iHtMnW tfl ùchdngv, 

- posiez volt* bon a l aûrp.ss* ci-dessous 

Afrâ évaluait^ flttti voun iMiuimniQuems \à ItitC ftt /eux 
(|»/êf vous flJDâvw en eMMQê ftai fm que nous vous reoœn 
uwns 

Si l'ètfmg* vm convient, mi enverrez alors vos jeux et rece- 
m z sous 46 heures les jeux commandés 
fietomez vite vofff bon a BOOMERANG - BP. 585 - 74054 
ANNECY CEDEX 

NOM 

Adresse 

Code postal 



VUte 



2 eoimoues boomerang 

POiM ÉCHANGER VOS JEUX SUR PLACE 
ANNECY GRENOBLE 
BOOMERANG H 10 DèSTRIBUTfOH 

91 cMemm du Pérméfie ZA VOREPPE 

5027*3 \2 r&J»S&*B 



FAITES CI-DESSOUS LA LISTE 
DES JEUX QUE VOUS SOUHAr?E2 
ECHANGER 




DIS» 


TITHE 





















































































FAITES CI-DESSOUS LA LISTE 
DES JEUX QUE VOUS SOUHA 

if 7 jOfSrL HT R£ 




urp! \u\m\ lu; jypp 



REDUCTION 
DU CODE BASIC 



Le BASIC de votre 
Amstrad est très complet 
et assez rapide, mais il 
est possible, grâce à 

certains moyens 
simples, de raccourcir 
les lignes (et donc de 
gagner de la place en 
mémoire) et d'accélérer 

certaines fonctions, 
notamment les fonctions 
d'affichage. 



V 



oyons tout d'abord comment 
réduire la longueur des lignes 



Pour réduire la longueur des lignes, on 
va supprimer un certain nombre de 
caractères inutiles. 
En effet, dans un assez grand nom- 
bre de cas, on peut supprimer des 
caractères, comme les espaces, et 
ainsi, à chaque fois gagner 1 octet I 
Vous me direz que pour gagner 1 
octet sur 42289, ça ne vaut pas le coup 
de se fatiguer. Malgré tout, en sup- 
primant systématiquement les carac- 
tères inutiles, su un programme de 
40 Ko. on peut gagner entre 3 et 5 Ko. 
ce qui représente souvent un gain 
appréciable. 




Ainsi, la ligne : 

1 0_IF_a%=-l _THEN_a%=b%_ELSE_PRINT 
_»Non» (37 octets) 

peut être réduite en une ligne équi- 
valente : 

1 0JF-1 =a%THEN_a%=b%ELSE_PRINT» 
Non de 32 octets, ce qui représente 
un gain de 13,5%. 

Les 2 caractères pouvant être suppri- 
més apparaissent dans l'exemple pré- 
cédent, ce sont les ESPACES et les 
GUILLEMETS. 

Dans quels cas les supprimer 

fH Les guillemets : la règle est simple, 
ils ne peuvent être supprimés que 
quand c'est le dernier caractère 
d'une ligne. 

On peut donc le faire dans les 2 cas 
suivants : 
10PRINT «Oui» 
20 aS=»0» 
ce qui donne : 
10PRINT«Oul 
20aS=»O 



IHI Les espaces : les cas sont plus fré- 
quents, mais les règles un peu plus 
compliquées. Résumons-les dans un 
tableau : 



Caractère 


Code ASCII 


On peut retirer l'espace : 
Avant le caractère j Après le caractère 


# 


34 
35 






S 


36 






% 
& 

( 
) 


37 
38 
40 
41 
45 








Appliquons ces règles dans un petit 

programme d'exemple : 

1 0_PRINT_»Etes-vous abonné à CPC ?» 

20_WHILE_INKEYSo»»:WEND: AS=»» 

30_WHILE_ASo»0»_AND_A$o»N>»AS= 

UPPER$(INKEY$):WEND 

40_IF_AS=»O»_1HEN_PRiNT_»BRAVO!»JLSE 

_PRINT_»II n'est jamais trop tard pour 

bien faire...» 

Ce petit programme peut ainsi être 
optimisé de la façon suivante : 

1 0_PRI NT» Etes- vous abonné à CPC ? 
20_WHILE»»<I N KEYS :WEND:A$=» 
30_WHILE»O»<ASOR»N»>A$A$=UPPERS 
(INKEYS) :WEND 

40JF»O»=A$THEN_PRINT»BRAVO!»ELSE 
_PRINT»II n'est jamais trop tard pour 
bien faire... 

Pour raccourcir un programme BA- 
SIC, on peut aussi : 

• Supprimer les REM. (Si vous ne pou- 
vez les supprimer, remplacez-les par 
des : ou reculez la ligne suivante). 

• Réduire la longueur des variables 
utilisées 

• Diminuer le nombre de lignes, en 
regroupant le plus d'instructions pos- 
sible sur une même ligne (la création 
d'une ligne prend 5 octets). De plus, 
l'exécution sera accélérée. 



• Se servir des GOSUB pour toute 
opération répétée à plusieurs endroits 
dans le programme. 

• Employer des variables entières, là 
ou elles peuvent remplacer les varia- 
bles réelles. Vous pouvez pour cela 
utiliser l'instruction DEFINT, ou le sym- 
bole % pour une variable unique. 

• Se servir des caractères de contrôle 
(nous allons revenir sur ce point). 

• Supprimer les Instructions Inutiles ! 
Le CLS. dans le cas : MODEJ :CLS est 
par exemple tout à fait superflu. 

Les caractères de contrôle 

Le «manuel de l'utilisateur» fait en ef- 
fet assez peu état de ces caractères 
(0 à 31 , dans le code ASCII), mais leur 
utilisation a le grand avantage de 
réduire la longueur du code BASIC et 
d'accélérer grandement l'affichage 
de paramètres et de messages à 
l'écran. 

Pour obtenir ces caractères, tapez la 
ligne : 

FOR 1=0 TO 31 :?»Le caractère»;i;»;»;CH 
RS(l);CHR$(i);» est obtenu en ap- 
puyant simultanément sur les touches 
CONTROL et «;CHR$(I+64):NEXT 
Attention tout de même, ces carac- 
tères correspondant à des instructions, 
ils peuvent vous réserver quelques 
surprises si vous voulez lister le pro- 
gramme sur une Imprimante. 

L'utilisation conjuguée des caractè- 
res de contrôle et des règles précé- 
demment évoquées permet d'accé- 
lérer sensiblement vos programmes, 
sans avoir recours à l'assembleur et 
peut libérer jusqu'à un cinquième, 
voire un quart de la place occupée 
par un programme, ce qui peut être 
très précieux. 



Sylvain Vieujot 

7< _ 
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PUIS 




Valable pour 



PUISSANCE QUATRE permet de multiplier la surface de 
Técran par quatre en utilisant les 64 Ko supplémentaires de 
mémoire. 



L'écran du moniteur ne permet- 
tant pas de visualiser la totalité 
des écrans, on a Installé des RSX 
pour permettre le déplacement des 
pages avec les touches du clavier. Les 
Plocs peuvent être disposés de 3 
façons pour créer un écran horizon- 
tal, vertical ou carré. La deuxième 
partie du logiciel permet l'impression 
du dessin ou du texte créé à l'échelle 
1 ou 2. La troisième partie n'est utili- 
sable qu'avec un CPC modifié pour 
l'utilisation du Sème bit. La quatrième 
et dernière partie permet l'inversion 
vidéo de tout ou partie de l'écran 
visualisé mais aussi l'inversion horizon- 
tale ou verticale ainsi que le dépla- 
cement d'une zone. Toutes ces com- 
mandes peuvent être exécutées en 
mode 0,1 ou 2 sauf la commande 
d'impression. Le scroll automatique est 
Interdit. Le logiciel doit être implanté 
à une adresse supérieure à 32767 si- 
non lors de la permutation des blocs 
on sortirait du programme. Puissance 
4 est utilisé avec un logiciel de dessin 
de circuit imprimé et il donne entière 
satisfaction. 



DESCRIPTION DES 14 
COMMANDES RSX 



l:lDOWN. vitesse 
2: 1 UP, vitesse 
3: IRIGHT, vitesse 
4: IlBFT. vitesse 

Ces quatre commandes servent à 
déplacer l'écran, le paramètre vitesse 
permet un déplacement plus ou moins 
rapide, s'il est omis il prend la valeur 
1 par défaut. 

5: 1 COPY, sens de transfert, numéro du 
bloc 

Cette commande copie l'écran dans 
les blocs mémoires ou inversement. Le 
1 er paramètre peut prendre la valeur 
0 ou 1 . Pour 0, le transfert se fait des 
blocs vers l'écran, pour 1 c'est l'in- 
verse. Le second paramètre peut 
prendre les valeurs 0 à 4. 

0 : transfert avec l'emplacement réel 
dans les blocs ; 1 2:3:4: sont les numé- 
ros des blocs où le transfert doit s'ef- 
fectuer. 

6:1 DISPOS, disposition des blocs, 
nombre de blocs 

Le 1er paramètre donne à l'écran les 
formes suivantes. 0 : VERTICALE, 

1 HORIZONTALE, 2 : CARRE. Le 2ème 



paramètre est le nombre de blocs à 
utiliser (minimum 2 et maximum 4), Si 
la disposition choisie est le carré, le 
nombre de blocs doit être 4, si vous 
entrez 2 ou 3, le programme génère 
lui-même la valeur 4. 

7: 1 PERMUT, numéro du bloc 
Les deux paramètres correspondent 
aux numéros des blocs que l'on veut 
permuter, aucune permutation n'est 
possible avec l'écran. 

8:1 IMP, échelle 

Reproduit le dessin sur l'imprimante. 
Cette commande ne fonctionne 
qu'en mode 2. Le paramètre «échelle» 
peut prendre la valeur 1 ou 2 , L'im- 
pression à l'échelle 2 donne un des- 
sin de 640 points * 400 soit 20,32 cm * 
12,70 cm pour un seul bloc ce qui 
donne pour 4 blocs en vertical 20.32 
'50,80 cm; à l'horizontal 81, 28 * 12,70. 
dans ce cas les blocs sont tournés de 
1 /4 de tour pour permettre une im- 
pression à la suite. Si la valeur du pa- 
ramètre est 1 , le dessin est réduit de 
moitié (320 points " 200). Si les blocs 
sont disposés en carré, la copie se fait 
automatiquement à l'échelle 1, les 
dimensions de l'imprimante interdisant 
la copie à l'échelle 2. La copie réduite 
supprime un bit sur deux dans le sens 
horizontal. Aussi, pour obtenir une 
reproduction parfaite, les traits vertl- 





eaux devront avoir une largeur de 2 
pixels ou être placés sur les colonnes 
paires. Un appui sur Q majuscule ar- 
rête définitivement l'impression. 

9:1 BITS 

Permet l'impression de l'écran en 8 
bits, si le CPC utilisé a été modifié. Le 
principe de cette routine consiste à 
détourner le vecteur pour tester le 
8ème bit et l'envoyer à l'imprimante 
s'il esta 1. 



10:1 BIT 7 

Remet tout simplement le vecteur à 
sa place si la commande précédente 
a été exécutée. 

ll:llNVH 

Permet de tracer une fenêtre à l'écran 
et d'inverser horizontalement son 
contenu, la fenêtre peut contenir un 
octet ou la totalité de l'écran. 



12: 1 INVV 

Comme la commande précédente 
mais l'inversion se fait verticalement. 

13:llNVVID 

Même principe mais inversion vidéo. 
14:1 DEPLACE 

Permet de déplacer une partie de 
l'écran sans le détruire, son utilisation 
est semblable aux commandes pré- 
cédentes. 

81 



LES 4 DERNIERES 
COMMANDES 

• Après avoir tapé la commande 
désirée, un curseur apparaît dans le 
centre de l'écran. Celui-ci peut être 
déplacé à l'aide des touches flé- 



chées ; le curseur doit toujours être 
placé en bas et à gauche de la par- 
tie à modifier. Un appui sur la touche 
COPY fixe le curseur et autorise l'ou- 
verture d'une fenêtre à l'aide des 
touches fléchées, un deuxième ap- 
pui exécute la commande. Un appui 
sur la touche RETURN confirme votre 



décision, DEL retourne au curseur. 
Lorsqu'une fenêtre a été ouverte un 
appui sur DEL autorise le déplace- 
ment : il faut de nouveau appuyer sur 
COPY pour fixer la fenêtre. A tout 
moment, un appui sur Q majuscule 
retourne au Basic. 

Michel RAYMOND 



1 REH iifititiifimiiiiuiiiimiiifiit 

2 ' FAITES UNE SAISIE DES LIGNES 10 A 

3 ' 690 SAUVEGARDEZ LE PROGRAMME IL 

4 ' VOUS SERVIRA POUR D'AUTRES SAISIES. 

5 1 FAITES RUN REPONDEZ AUX QUESTIONS 

6 ' VOUS POUVEZ COMMENCER LA SAISIE 

7 ' DES DATAS. 

8 REH IHIiliiiiiiiiiiiiHiiiiiiiiiiiiii 
10 REH CHARGEUR DATA 

20 MODE 2:VIND0U 10, 1,80, 9, 25: WIMDOU 11,1. 80,1, 5-.WIND0W 

12,1,80,6,8 
30 M S "0123456789ABCDEF" 
40 REH CHARGE LES FICHIERS 
50 REH S'IL SONT SUR LA DISQUETTE 
60 ON ERR0R GOTO 680 
70 0PENIN "SAISIE-D.FIC" 
80 INPUT I9,adi,add,adf,noc,nli,inc,noli 
90 LOAD -SA1SIE-D.BIN" 
100 CLOSE IN:HEH0RT add-l:G0T0 1B0 

110 L0CATE ll,l,2:INPUT 11, "ADRESSE D'IMPLANTATION : ■; 
adl 

120 add=adi*CLS I1:L0CATE 11, 1,2: INPUT 11, "NOMBRE D'QCT 
ET : ";noc 

130 IF noc>42619-adl THEN G0SUB 620:GOTO 120 

140 CLS tltlNPUT I1,"NUHER0 1ère LIGNE : ";nli 

150 CLS 11: INPUT 11, «INCREMENT : ";inc 

160 CLS ll:INPUT 11, «NOMBRE D'OCTET PAR LIGNE i "{noli 

170 CLS IliHEHORT adi-l:adf =adi+noc 

180 ON ERR0R GOTO 0 

190 LOCATE I2.2.1.-PRINT I2."LIGNE";TAB(32)"0CTET";TAB<7 
2) "TOTAL" 

200 REM SAISIE DES OCTETS 

210 EVERT 1,1 G0SUB 510:CURS0R 1,1 

220 «H ILE adiOadf 

230 totl="":tcod=0:CLS ll:PRINT 10, ni i ; TAB < 12) 
240 FOR M T0 noli'2 

250 al=":VHILE a*=" , :a$=UPPERI( INKEY*) : VEND 
260 IF INKET(8)=0 THEN G0SUB 630: GOTO 250 
270 IF INSTR(l,M,a»)=0 THEN G0SUB 620:G0T0 250 
260 cod*=cod**a« 

290 IF LEN(cod*)=2 THEN PRIHT 10. a*;" :a*="":cod=VAL( 

•l"+cod*):codl=":tcod=tcod+cod:P0KE adi.cod:adi=adi+l 

ELSE PS (NT I0,a»;:a|:«" 

300 IF adi=adf THEN f-f H.-G0T0 320 

310 NEIT f 

320 PRINT I0,TAB(72) 

330 REM SAISIE DU TOTAL ET VERIFICATION 

340 FOR i=l TO 4 

350 a$=":VHILE a»=":al=UPPER$(INKEY$):VEND 
360 IF INKET(8)=0 THEN G0SUB 670:GOT0 350 
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370 IF lNSTR(l,b»,a»)=0 THEN G0SUB 620:G0T0 350 

380 PRINT I0,ai; 

390 tot*=tot»4a*:NEXT i 

400 PRINT 10, 

410 IF VAL(*VHot»)<>tcod THEN GOTO 590 
420 nli=nllMnc 
430 VEND 

440 REH SAUVEGARDE DEFINITIVE 

450 LOCATE ll,l,2:PRINT 11, "SAISIE TERMINEE. ": CLS I0:a 
S I2:CAT 

460 LOCATE ll,l,4:LINE INPUT 11, "SAUVEGARDE : NOM DU PR 
OGRAMME : ";np* 

470 CLS 11: LOCATE ll,l,3:PRINT 11, "SAUVEGARDE EN COURS. 
480 SAVE "np!",B,add,noc 

490 MODE 0:PAPER 5:PEN 14:CLS:L0CATE 3,12:PRINT "tu TE 
RMINE m":END 

500 REH SAUVEGARDE PROVISOIRE 

510 IF INKEY(68K>-1 AND tcod=0 AND LEN(codl)=0 THEN 52 
0 ELSE RETURN 

520 PRINT 11, 'SAUVEGARDE PROVISOIRE.* 

530 SAVE "SAISIE-D.BIN".B,add,adi-add 

540 OPENOUT "SAISIE-D.FIC" 

550 PRINT I9,adi,add,adf,noc,nli,inc,noli 

560 CLOSEOUT:x=P0S(IO):y=VP0S(IO):PEN 0: !ERA,"SA1SIE-D. 

BAK':PEN 1 

570 CLEAR INPUT:CLS I1:L0CATE IO,i,y:RETURN 
580 REH S/P ERREUR 

590 PRINT ll,CHRI(7);CHR*(24);:CLS 11: LOCATE ll,36,l:PR 
INT 11," ERREUR ! " 

600 LOCATE 11,1 1 4: PRINT 11, "Veuillez reconencer la 1 ig 
ne :";nli;CHRt(24) 

610 IF adi>add THEN adi = INT(adi-f /2M:CALL tBBO6:G0T0 
230 ELSE CALL &BB06:GOTO 230 

620 LOCATE 11,36, 1:PRINT ll,CHRI(7);CHR$(24);" ERREUR ! 

";CHR»(24):F0R i=0 TO 1000:NEIT i:CLS 11: RETURN 
630 REM S/P CORRECTION 

640 IF LEH(cod»)=0 AND P0S(I0)>13 THEN LOCATE lO.POSdO 
)-2,VP0S(IO):PRINT 10," ";:LÛCATE IO,POS(IO)-2,VPOS(IO 
) :adi=adi-i :cod»=HEÏ» (PEEKladi ) ) : tcod=tcod-VAL( "i"+codl 
):codl=LEFT*(cod*,l):l=f-l:RETURN 

650 IF P0S(I0)>12 THEN LOCATE IO,POS(IO)-1,VPOS(IO) :PRI 
NT 10," ";:L0CATE IO,POS(IO)-l,VPOS(IO):cod$="":cod=0:f 
=f-l:RETURN 
660 RETURN 

670 IF P0S(I0)>72 THEN LOCATE IO,POS(fO)-l, VPOS(tO) :PRI 
NT 10," ";:L0CATE IO,POS(IO)-i,VPOS(IO):tot$=LEFT*(tot$ 
,LEN(tot*)-l):i=l-l:RETURN ELSE RETURN 
680 REH S/P FICHIER INEXISTANT 
690 CLOSEIN:CLS I0:RESUME 110 




700 REM isii*iiHiiiiiiiiii*»iiiiH«if*< 
710 • INFORMATION PROGRAMME 
720 ' IMPLANTATION: 40000 OU k9C40 
730 ' 2573 OCTETS 
740 » NUMERO 1ère LIGNE: 1000 
7B0 ' INCREMENT: 10 
760 ' 8 OCTETS PAR LIGNE 
770 REM itiMmmitMMiimmfiiHH 
1000 DATA 01,4A,9C,21,B6,9C,CD,Dl,03FB 
1010 DATA BC,C9,76,9C,C3,BA,9C,C3,0573 
1020 DATA E7,9C,C3,19,9D,C3,45,9D,04A1 
1030 DATA C3,F3,9D,C3,7B,9D I C3,B3,05A4 
1040 DATA 9D,C3,9E,9F,C3,48,A2,C3,050D 
1050 DATA 7A,A2,C3,90,A2,C3,EB,A2,0S61 
1060 DATA C3,32,A3,C3,5C,A3,44,4F,03ED 
1070 DATA 57,CE,55,D0,52,49, 47,48,0374 
1080 DATA D4,4C,45,46,D4,43,4F,50,0361 
1090 DATA D9,44,49,53,50,4F,D3,50,037B 
1100 DATA 45,52,4D,55,D4,49,4D,D0,0373 
1110 DATA 42,49,54,88,42,49, 54,B7,032D 
1120 DATA 49,4E,56,C8,49,4E,56,D6,0378 
1130 DATA 49,4E,56,56,49,C4,44,45,02D9 
1140 DATA 50,4C,41,43,C5,00,00,00,01E5 
1150 DATA 00,00,CD,E9,9D,3A,9C,9F,03C8 
1160 DATA FE,02,D8,C5,2A,92,9F,24,041C 
1170 DATA 2D,3E,C8,BC,CC,DC,9C,22,0455 
1180 DATA 92,9F, C1,FE,01,CA,5A,9D,04B2 
1190 DATA 10,E9,18,7E,3A,9C,9F,3D,0341 
1200 DATA 32,9C,9F,6C,26,00,C9,CD,0395 
1210 DATA E9,9D,C5,2A,92,9F,25,2C,03F7 
1220 DATA 3E,C9,BD,CC,FE,9C,22,92,04DE 
1230 DATA 9F,C1,10,EE,1B,5C,3A,9A,03A6 
1240 DATA 9F,57,3A,9C,9F,BA,28,09,Q356 
1250 DATA 3C,32,9C,9F,2E,01,26,C7,02C5 
1260 DATA C9,E1,E1,2E,00,26,C8,18,03BF 
1270 DATA 41,CD,E9,9D,3A,9D,9F,FE,0508 
1280 DATA 02,D8,C5,2A,90,9F,24,2D,0349 
1290 DATA 3E,50,BC,CC,3A,9D,22,90,039F 
1300 DATA 9F,C1,FE,01,28,24,10,EA,03A5 
1310 DATA 18,20,3A,9D,9F,3D,32,9D,02BA 
1320 DATA 9F,6C,26,00,C9,CD,E9,9D,044D 
1330 DATA C5,2A,90,9F,25,2C,3E,5t,02FE 
1340 DATA BD,CC,60,9D,22,90,9F,C1,0498 
1350 DATA 10,EE,CD,15,9E,C3,45,9F,0425 
1360 DATA 3A,9B,9F,57,3A,9D,9F,BA,03FB 
1370 DATA 28,09,3C,32,9D,9F,2E,01,020A 
1380 DATA 26,4F,C9,E1,E1,2E,00,26,0354 
1390 DATA 50,1B,DF,FE,02,C2,57,9F,03FF 
1400 DATA DD,7E,02,FE,03,D2,57,9F,0426 
1410 DATA 32,99,9F,67,DD,7E,00,FE,042A 
1420 DATA 02,DA,57,9F,FE,05,D2,57,03FE 



1430 DATA 9F,6F,7C,26,00,FE,00,28,02D6 
1440 DATA OB,65,2E,00,FE,01,28,04,01C9 
1450 DATA 2E,02,26,02,22,9A,9F,22,01D5 
1460 DATA 9C,9F,C9,FE,02,C2,57,9F,04BC 
1470 DATA DD,4E,02,DD,5E,00,3E,00,02A6 
1480 DATA B9,CA,57,9F,BB,CA,57,9F,04F4 
1490 DATA 3E,04,B9,DA,57,9F,BB,DA,0460 
1500 DATA 57,9F, 21, 93,9F, E5, 16,00,0344 
1510 DATA 42,19,EB,E1,09,1A,F5,7E,03BD 
1520 DATA 12,F1,77,CD,15,9E,C3,45,0402 
1530 DATA 9F,FE,01,06,01,DD,7E,00,0300 
1540 DATA D8,47,C9,FE,02,C2,57,9F,04A0 
1550 DATA DD,7E,02,32,98,9F,DD,7E,0421 
1560 DATA 00,FE,00,20,06,CD,15,9E,02A4 
1570 DATA C3,45,9F,FE,05,D2,57,9F,0472 
1580 DATA C6,C3,C3,76,9F,3A,99,9F,04D3 
1590 DATA FE,00,28,09,FE,01,28,1B,0271 
1600 DATA CD,51,9E,18,47,3A,9C,9F,0390 
1610 DATA 5F,3A,9A,9F,21,94,9F,CD,03F3 
1620 DATA A4,9E,3A,93,9F,FE,00,C4,0470 
1630 DATA CF,9E,C9,3A,9D,9F,5F,3A,0445 
1640 DATA 9B,9F,21, 94,9F, CD,A4,9E,049D 
1650 DATA 3A,91,9F,FE,00,C4,E6,9E,04B0 
1660 DATA C9,2A,9C,9F,7C,A5,21, 97,0407 
1670 DATA 9F,FE,01,C8,3A,9C,9F,2B,0406 
1680 DATA FE,01,C8,3A,9D,9F,2B,FE,0466 
1690 DATA 01,C8,2B,C9,CD,A9,9E,23,03F4 
1700 DATA 3A,93,9F,FE,00,C4,CF,9E,049B 
1710 DATA 21,94,9F,3A,91,9F,FE,00,03BC 
1720 DATA C8,3A,9C,9F,FE,02,28,03,0368 
1730 DATA 21,96,9F,CD,E6,9E,0E,C7,047C 
1740 DATA 3A,93,9F,FE,00,C8,21,00,0353 
1750 DATA 40,3A,93,9F,DD,21,91,9F,03DA 
1760 DATA CD,OD,9F,C9,93,5F,16,00,034A 
1770 DATA 19,E5,4E,21,00,40,3A,91,0278 
1780 DATA 9F,85,6F,3A,93,9F,FE,00,03FD 
1790 DATA 28, 06, 47, CD, 26, BC, 10, FB, 032F 
1800 DATA 11,00,CO,3A,92,9F,DD,21,033A 
1810 DATA 90,9F,CD,OD,9F,E1,C9,23,0475 
1820 DATA 4E,E5,21,00,40,3A,91,9F,02FE 
1830 DATA B5,6F,3A,93,9F,DD,21,90,03EE 
1840 DATA 9F,CD,0D,9F,E1,C9,23,E5,04CA 
1850 DATA 4E,3A,90,9F,11,00,C0,83,030B 
1860 DATA 5F,21,00,40,3A,93,9F,FE,032A 
1B70 DATA 00,28,06, 4T,CD,26,BC, 10,0234 
1B80 DATA FB,3A,92,9F,DD,21,91,BF,0494 
1890 DATA CD,0D,9F,E1,C9,06,7F,ED,0495 
1900 DATA 49,47, C5,DD,4E,00,06,00,0286 
1910 DATA C5, 3 A, 98, 9F, FE, 00, 28,01,0350 
1920 DATA EB,ED,BO,FE,00,C1, 28,01, 0470 
1930 DATA EB,E5,21,00,08,A7,ED,42,03CF 



1940 DATA 44,4D,E1,EB,09,DC,50,9F,0431 
1950 DATA EB,09,CB,7C,C4,50,9F,C1,04AF 
1960 DATA 10,DO,C9,E1,E1,01,CO,7F,04AB 
1970 DATA ED,49,3E,00,32,98,9F,C9,03A6 
1980 DATA C5,Q1,50,CO,09,C1,C9,21,038A 
1990 DATA 64,9F,7E,FE,00,C8,CD,5A,046E 
2000 DATA BB, 23, 18, F6, 22,65, 72, 72, 0357 
2010 DATA 65, 75, 72, 20, 6 1,72, 67, 75, 031B 
2020 DATA 6D,65,6E,74,22,00,11,00,01E7 
2030 DATA CO,21,00,4O,06,7F,FJ\79,O3OC 
2040 DATA 01,00,4O,3A,98,9F,FE,00,02B0 
2050 DATA 28,01, EB,ED,B0,C3,45,9F,O458 
2060 DATA 50,00,C8,00,C4,C5,C6,C7,042E 
2070 DATA 00, 02, 02, 02, 02, 02, FE, 01, 0109 
2080 DATA 38,16,DD,7E,00,FE,01,DA,0382 
2090 DATA 57,9F,FE,03,D2,57,9F,F5,04B4 
2100 DATA 3A,99,9F,FE,02,F1, 20,02,0385 
2110 DATA 3E,01,CD,C1,9F,CD,26,A2,0401 
2120 DATA C9,32,47,A2,21,FF,FF,22,0425 
2130 DATA 45,A2,3A,99,9F,FE,02,28,0381 
2140 DATA 06,ED,5B,9A,9F,7A,83,32,03B6 
2150 DATA 44,A2,CD,26,A2,21,94,9F,03CF 
2160 DATA 06,7F,4E,E5,ED,49,3A,99,03C1 
2170 DATA 9F,FE,01,CA,05,A1,3A,47,038F 
2180 DATA A2,FE,02,CA,58,A0,21,00,0385 
2190 DATA 40,CD,CA,A1,3E,40,CD,36,03F9 
2200 DATA A2,3E,01,CD,36,A2,3E,50,0314 
2210 DATA 32,41, A2,16,80,3E,04,32,021F 
2220 DATA 42,A2,E5,06 t 08,OE,00,7E,0263 
2230 DATA A2,28,05,37,CB,U,18,03,01FD 
2240 DATA AF,CB,11,CD,26,BC,10,EF,0439 
2250 DATA 79,CD,36,A2,AF,CB,1A,CB,047D 
2260 DATA 1A,E1,3A,42,A2,3D,FE,00,0354 
2270 DATA 20,D5,23,3A,4t,A2,3D,FE,0370 
2280 DATA 00,20,C5,3A,99,9F,FE,02,0357 
2290 DATA CA,DB,A0,2A,3F,A2,06,08,035E 
2300 DATA CD,B6,A0,CA,C3,A0,18,Al,O5O9 
2310 DATA 21,00,40,CD,CA,A1,3E,80,0357 
2320 DATA CD,36,A2,3E,02,CD,36,A2,038A 
2330 DATA 3E,50,32,41,A2,16,80,3E,0277 
2340 DATA 08,32,42,A2,E5,06,04,OE,021B 
2350 DATA 00,7E,A2,28,08,37,CB,11,0263 
2360 DATA 37,CB,11,18,06,AF,CB,11,02BC 
2370 DATA AF,CB,11,CD,26,BC,10,E9,0433 
2380 DATA 79,CD,36,A2,AF,CB,1A,E1,0493 
2390 DATA 3A,42,A2,3D,FE,00,20,D1,034A 
2400 DATA 23,3A,41,A2,3D,FE,00,20,029B 
2410 DATA C1,2A,3F,A2,06,04,CD,B6,0359 
2420 DATA A0,CA,C3,A0,18,A5,CD,26,047D 
2430 DATA BC,10,FB,3E,47,BC,C0,3E,0406 
2440 DATA D0,BD,C9,3A,44,A2,E1,3D,0494 
83 



2450 DATA FE,00,C8,23,32,44,A2,3A,033B 
2460 DATA 99,9F,FE,02,C2,E0,9F,23,049C 
2470 DATA C3,E0,9F,E1,3A,43, A2,FE,O540 
2480 DATA 00,28,0E,3D,32,43,A2,2B,01B5 
2490 DATA E5,06,7F,4E,ED,49,C3,4B,03FC 
2500 DATA A0.3C, 32,43, A2,23,E5,06,0301 
2510 DATA 7F,4E,ED,49,2A,3F,A2,CD,03DB 
2520 DATA 04,A2,C3,FC,9F,3A,47, A2.0427 
2530 DATA FE,02,CA,6A,A1,21,80,7F,03F5 
2540 DATA CD,CA,A1,3E,C8,CD,36,A2,04E3 
2550 DATA 3E,00,CD,36,A2,3E,C8,32,031B 
2560 DATA 41, A2,E5,OE,00,3E,02 f 32,0248 
2570 DATA 42,A2,16,8O,06,04,7E,A2,02A4 
2580 DATA 28, 05, 37,CB, 11,18,03, AF,020A 
2590 DATA CB,11,CB,IA,CB,1A, 10,EE,03A4 
2600 DATA 23,3A,42,A2,3D,FE,00,20,029C 
26L0 DATA DE, 79, CD, 36, A2, El, CD, 29,0403 
2620 DATA BC,3A,41,A2,3D,FE,00,20,0334 
2630 DATA C6,2A,3F,A2,23,23,22,3F,0278 
2640 DATA A2,CD,C2,A1,C2, 10,A1,C3,0508 
2650 DATA B3,A1,21,80,7F,CD,CA,A1,04AC 
2660 DATA 3E,90,CD,36,A2,3E,01,CD,037F 
2670 DATA 36,A2,3E,C8,32,41,A2,E5,03D8 
2680 DATA OE,00,16,80,06,08,7E,A2,01D2 
2690 DATA 28,05,37,CB,11,18,03,AF,020A 
2700 DATA CB,11,CB,1A,10,FO,79,CD,0407 
2710 DATA 36,A2,E1,CD,29,BC,3A,41,03E6 
2720 DATA A2,3D,FE,00,20,D6,2A,3F,033C 
2730 DATA A2,23,22,3F,A2,CD,C2,A1,03F8 
2740 DATA C2,6D,A1,3A,44,A2,E1,3D,040E 
2750 DATA FE,00,C8,23,32,44, A2.C3.03C4 
2760 DATA EO,9F,3E,7F,BC,C0,3E,D0,04C6 
2770 DATA BD,C9,22,3F,A2,CD, 1B,BB,042C 
2780 DATA FE,51,CA,23,A2,3E,1B,CD,0404 
2790 DATA 36,A2,3E,33,CD,36,A2,FJD,03DB 
2800 DATA 5B,45,A2,14,1C,3E,0F,BA,0279 
2810 DATA CA,14,A2,3E,03,BB,CA,1C,0362 
2820 DATA A2,3E, 16,ED,53,45,A2,CD,03EA 
2830 DATA 36,A2,3E,0A,CD,36,A2,3E,03O3 
2840 DATA OD,CD,36,A2,3E,1B,CD,36,030E 
2850 DATA A2,3E,2A,CD,36,A2,3E,04,02F1 
2860 DATA CD.36, A2,C9, 11,00,00,3E,02BD 
2870 DATA 14,C3,F3,A1,1E,00,3E,15,02DC 
2880 DATA C3,F3,A1,C1,C1,C1,3E, 1B,04F3 
2890 DATA CD,36,A2,3E,40,CD,36,A2,03C8 
2900 DATA 01,C0,7F,ED,49,C9,CD,2E,043A 
2910 DATA BD,38,FB,CD,2B,BD,C9,00,046E 
2920 DATA 00,00,00,00,00,00,00,00,0000 
2930 DATA 3A.79, A2,FE,01,C8,3C,32,038A 
2940 DATA 79,A2,2A,2C,BD,22,77,A2,0369 
2950 DATA 3E,C3,32,2B,BD,21,64,A2,0342 
2960 DATA 22,2C,BD,C9,F5,C5,CB,7F,04D8 
2870 DATA 20,05,01, 00,F6, 18,03,01,0138 
2980 DATA 20,F6,ED,49,C1,F1,CF,00,04CD 
2990 DATA 00,00, 3A, 79,A2,FE,00,C8,031B 
3000 DATA 3D,32,79,A2,2A,77,A2,22,02EF 
3010 DATA 2C,BD,3E,CF,32,2B,BD,C9,03D9 
3020 DATA CD,62,A4,ED,4B,42,A6,0D,04O0 
3030 DATA 2A,46,A6,C5,E5,E5,06,00 ) 03AB 



I 3040 DATA 09,EB,El,3E,02,B9 f 3F,38,0345 

| 3050 DATA 08,41,CB,38,F5,CD,CA, A2.047A 

> 3060 DATA F1,06,01,DC,CA,A2,E1,CD,Û4EE 
3070 DATA 29,BC,C1, 10,DE,E5,CD,CB,05U 
3080 DATA A4,E1,3E,7F,BA,7A,28,C8,0466 
3090 DATA 18,F3,7E,CD,DF,A2,32,D0,04D9 
3100 DATA FF,1A,CD,DF,A2,77,3A,D0,04E8 
3110 DATA FF,12,23,1B,10,EC,C9,C5,03D9 
3120 DATA 01,00,08,OF,CB,11,10,FB,01FF 
3130 DATA 79,C1,C9,CD,62,A4,ED,4B,050E 

I 3140 DATA 41,A6,2A,46,A6,C5,E5,ED,0494 
3150 DATA 4B,42,A6,CB,38,E5,C5,CB,04AB 
3160 DATA 10.05, CD,29,BC,10,FB.EB,03BD 
3170 DATA C1,E1,7E,32,D0,FF,1A,77,04B2 
3180 DATA 3A,D0,FF,12,CD,29,BC,E5,04B2 
3190 DATA EB,CD,26,BC,E6,El,iû,EA,0560 
3200 DATA El, 23, Cl, 10, DO, E5, CD, CB, 0522 
3210 DATA A4,E1,3E,7F,BA,7A,28,BB,0459 
3220 DATA 1B,F3,CD,62,A4,ED,48,41,0457 
3230 DATA A6,2A,46, A6,C5 I E5,ED,4B,049E 
3240 DATA 42, A6 , 7E, 2F, 77.CD. 29, BC,03BE 
3250 DATA 10 , F8 t El , Cl , 23, 10, ED, ES , 04AF 
3260 DATA CD,CB,A4,E1,3E,7F,BA,7A,050E 
3270 DATA 28,D8, 18,F3,CD,62, A4,2A,0408 
3280 DATA 46,A6,22,48, A6,2A,44,A6,0310 
3290 DATA 22,4A,A6,E5,CD,B3,A4,CD,04E8 
3300 DATA CB,A4,Ei,3E,7F,BA,7A,28,0469 
3310 DATA E3,CD,B3 t A4,CD,15,9E,AF,0536 
3320 DATA 32,4C, A6,ED,5B,46,A6,2A,0382 
3330 DATA 48,A6,ED,4B,4A,A6,3A,45,0395 
3340 DATA A6,B8,DC,C1,A3,3A,44,A6.04C2 

, 3350 DATA B9,DC,D7,A3,ED,4B,42,A6,052F 
3360 DATA 3A,4C,A6,FE,00,F5,CC,F1,04DC 

I 3370 DATA A3,Fl,FE,01,F5,CC, 1B, A4.0513 
3380 DATA F1,FE,02,F5,CC,06,A4,F1,054D 
3390 DATA FE,03,F5,CC,30,A4,F1,18,049F 
3400 DATA AA,C5,3A,4C,A6,C6,01, 32,0394 
3410 DATA 4C,A6,ED,4B,42,A6, 00,06,0325 
3420 DATA 00,09, EB,09,EB, Cl, C9.C5,0437 
3430 DATA 3A,4C,A6,C6, 02,32, 4C,A6,0318 
3440 DATA ED,4B,42,A6,05,CD,29,BC,03D7 

] 3450 DATA EB,CD,29, BC.EB, 10, F6, Cl, 054F 
3460 DATA C9,E5,D5,C5,06,00,ED r BO,04EB 
3470 DATA C1,D1,E1,CD,29,BC,EB,CD,05DD 
3480 DATA 29,BC,EB,10,EC,C9,E5,D5,054F 
3490 DATA C5,06,00,ED,BO,C1,D1,E1,04D8 
3500 DATA CD,26,BC,EB,CD,26,BC,EB,0534 
3510 DATA 10,EC,C9,E5,D5,C5,06,00,044A 
3520 DATA ED,B8,C1,D1,E1.CD,29,BC,05CA 
3530 DATA EB,CD,29,BC,EB,10,EC,C9,054D 
3540 DATA E5,D5,C5,06,00,ED,B8,C1,04EB 
3550 DATA Dl, El, CD t 26, BC t EB, CD t 26, 053F 
3560 DATA BC,EB,10,EC,C9,3E,00,32,03DC 
3570 DATA 41,A6,3C,32,43,A6,32,42,02B2 
3580 DATA A6,3E,64,32,44,A6,3E,28,02CA 
3590 DATA 32, 45, AS, 21, E8.DB, 22, 46,0369 
3600 DATA A6,C9,CD,45,A4,CD,79, A4, 050F 
3610 DATA CD, CB, A4, CD, B3, A4, CD, 15, 0542 
3620 DATA 9E.3A,41,A6,FE,02,38,FJ,03E4 



; 3630 DATA C9,2A,46,A6,ED,4B,42,A6,03FF 
3640 DATA 05,CD,BF,A4,3E,00,B8,C8,03F3 
3650 DATA CD,29,BC,CB,7E,28,04,CB,03F2 
3660 DATA BE,18,02,CB,FE,E5,C5,06,0451 
3670 DATA 00,0D,O9,CB,46,28,04,CB,021E 
3680 DATA 86, 18,02,CB,C6,C1,E1, 10,03E3 
3690 DATA DF,18,04,3E,01,B9,C8,CD,0388 

i 3700 DATA BF,A4,C9,01,FF,FF, 10,FE,0539 

| 3710 DATA 0D,79,FE,00,20,F8,C9,E5,044A 
3720 DATA C5,41,7E,2F,77,23,10,FA,0357 
3730 DATA C1,E1,C9,CD,1B,BB,FE,51,055D 
3740 DATA CA,43,9F,06,01,FE,FO,CA,046B 
3750 DATA 21,A5,FE,F1,CA,60,A5,FE,0582 
3760 DATA F2,CA,Ai,A5,FE,F3,CA,£l,069E 
3770 DATA A5,06,08,FE,F4,CA,21,A5,0435 
3780 DATA FE,F5,CA, 60, A5, 06,04, FE,04CA 
3790 DATA F6,CA, A1,A5,FE,F7,CA,E1,06A6 
3800 DATA A5,FE,E0,CA, 1B, A6.FE, 7F,058B 
3810 DATA CA,35,A6,FE,0D,28,01,C9,03A2 
3820 DATA 3A,41,A6,FE,02,D8,3E,01,0338 
3830 DATA 32,98,9F,CD,15,9E,C3,43,03EF 

| 3840 DATA 9F,3A,43,A6,80,5F,3A,44,031F 
3850 DATA A6,93,DC,54,A5,C8,3A,4l,0451 
3860 DATA A6,FE,01,28, 17,2A,46,A6,02FA 
3870 DATA C5,C5,CD,29,BC,C1,10,F9,0506 
3880 DATA 22, 46, A6.C1 , 3A, 44, AS, 90,0383 
3890 DATA 32 > 44.A6,C9,3A,43,A6,80,0388 

1 3900 DATA 32,43,A6,C9,3A,43,A6,5F,0366 
3910 DATA 3A,44,A6,93,47,AF,B8,C9,042E 
3920 DATA 3A,44, A6,80,FE,C9,D4,96,04D5 
3930 DATA A5,C8,3A,41,A6,FE,01,28,03B5 
3940 DATA 15,3A,44,A6,80,32,44, A6,02D5 
3950 DATA 2A, 46, A6, C5, CD, 26, BC, Cl , 044B 
3960 DATA 10,F9,22,46,A6,C9,3A,43,035D 
3970 DATA A6, 90, 38, 04, 28, 02, 18,02,0186 
3980 DATA 3E,01,32,43,A6,C9,3A,44,02A1 
3890 DATA A6,5F,3E,C8,93,47,AF,B8,044C 
4000 DATA C9,3A,45,A6,B0,FE,51,D4,0491 
4010 DATA D6,A5,C8,3A,41,A6,FE,01,0463 
4020 DATA 28,14,3A,45,A6,80,32,45,0258 
4030 DATA A6,48,06,00,2A,46,A6, A7.02B1 
4040 DATA ED,42,22,46,A6,C9,3A,42,0382 
4050 DATA A6, 90, 38, 04, 28, 02, 16.02.01B6 
4060 DATA 3E, 01, 32,42, A6,C9,3A,45,02A1 
4070 DATA A6,5F,3E,50,93,47,AF,B8,03D4 
4080 DATA C9,3A,42,A6,B0,5F,3A,45,0349 
4090 DATA A6.93,DC,OF,A6,C8,48,06,03EO 
4100 DATA 00,3A,41,A6,FE,01, 28,0F, 0257 
4110 DATA 2A,46,A6,09,22,46,A6,3A,0267 
4120 DATA 45.A6, 91, 32,45, A6,C9,3A,039C 
4130 DATA 42,A6,81,32,42,A6,C9,3A,0386 
4140 DATA 42,A6,5F,3A,4S,A6,93,47,0346 
4150 DATA AF,B8,C9,3A,41,A6,FE,02,0451 
4160 DATA C8,FE,00,28,OB,57,ED,4B,0388 
4170 DATA 42,A6,78,81,FE,02,C8,7A,0423 
4180 DATA 3C,32,41,A6,C9,57,3A,41,02FO 
4190 DATA A6,FE,00,C8,3D,32,41,A6,03C2 
4200 DATA C9,00,00,00,00,00,00,00,OOC9 
4210 DATA 00,00,00,00,00,0000 
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*Bon de commande 



ANCIENS NUMEROS CPC ET HORS-SERIE 

Attention, nMi9, 12, 14. 15, 17. 21, 22 et HSl, 2, 3 et 5 épuises 

• CPC 



Un récaplUiJetlf des ertlcles et des programmes publiés se trouve 
dans le n J 19 pour les CPC n J 1 à 17 et dans le 30 pour les 
CPC h 18 a 29. 



CPC n ( 30 Les caractères de contrôle - Astronomie planétaire - 
Branchez le Turbo Ano erreurs 2 - Traceur d'oscillogrammes Sauve- 
garde et impression d'écrans sur Minitel - Jeu de dames - CAO 3D - 
Initiation à CP/M 

CPC n ? 31 Amstrad 3 l'école - La programmation du joystick - Bran- 
chez le Turbo - Création et animation de spntes - Tout sur les fi- 
chiers Pluriel des noms CAO 3D • Statistiques - Trans-pen 
CPC n 32 Représentations graphiques en X-Y - Missive - CAO 30 

- Traitement de l image • Billard améncam Branchez le Turbo Création 
et animation de spntes 

CPC n- 33 L'art de mémoriser les vanables - Missive Traitement 
de l'image Billard américain Introduction à GSX - Animation et 
gestion de spntes - Tout sur les fichiers - CAO sur CPC 
CPC n 34 Nouons en mémoire Traitement de l'image - Présidentielles 

- CAO 3D Introduction a GSX Tout sur les fichiers Animation et 
gestion de spnres OH Pan*c. 

CPCn 35 Du 464 au 6128- 5* V 4 j'en veux - Traitement de l'image 

- CAO 30 - Rollmg Stones Mélange des couleurs - Conversion 
ASCII binaire moniteur de disquettes 

CPC n^ 36 Faites- vous bonne impression % Traitement de l'image 
Banderole CP'M * sur 464 Medor - Accélérateur Satellite - 
CAO 30 - Renumérotation des programmes binaires - Compilation 
BASlC/fcinaire Amslettres 

CPC n c 37 Catalogue détourné Antalex - Téléchargement Vidéo 

- Amslettres - Traitement de l'image DAMS et CP M Anti-erreurs 
Zoomer CAO 3D Trameur Sprinter 

CPC n 38 Dossier les tanzines - Perestroïka Traitement de 
l'image Digison CAO 3D 

DISQUETTES 

• CPC 

1 disquette contient les programmes de 2 n 13 consécutifs de CPC 



n c 1 
n c 2 
n p 3 
n 4 
n b 
n c 6 
n- ^ 



CPC 1 et 2 
CPC 3 et 4 
CPC 5 et 6 
CPC 7etB 
CPC 9 et 10 
CPC 11 et 12 
CPC 13 et 14 



n 8 CPC 15 et 16 nM4 CPC27et28 

n 9 CPC 17 et 18 n £ 15 CPC 29 et 30 

n' 10 CPC 19 et 20 n ; 16 CPC 31 et 32 

n 11 CPC 21 et 22 nM7 CPC 33 et 34 

nM2 CPC 23 et 24 n 18 CPC 35 et 36 

n' 13 CPC25et26 n' 19 CPC 37 et 38 



Les disquettes Hors-Série contiennent les programmes du numéro 
correspondant 

HS 2 Runaway Case Brique Dollars & SnaH - ABC - Lectheme 

Mul?ip»y Retonc 2 - Scribe - Masque de saisie 

HS 3 Les chiffres et les lettres Windows La momie invisible - 

Participes - Sectory t Fer forge Géométrie - Etats-Unis 

HS 4 Edit 2 - France rivière Boisson assistée par ordinateur - Mis 

toire de France Gaston M. m Mac Opération Oméga 



m \ 



HS 5 Anti-erreurs - Cendnllon - Squelette Super Disc Don Jean 
et Dr Agon - Machine à écrire - Ghost - Mémoire 
HS 6 Flipper Calcul Mental - Auto-choc • Jaquette - Drapeaux & 
capitales - Nuclear Biorythmes 

HS 7 Anti-erreurs Dominos - Départ Oie - Trait Stat • Alca lm 
pression sur enveloppe - Auto dictée - Manoir Maudit 
HS 8 Anrj -erreurs - Musiques - Mots croisés - Reliefs Mathémati- 
ques - Prêt - Résister - Division - Le petit train - Magnetic Pousse- 
Pousse 

HS 9 Anti-erreurs - Turbo Clavier - The Intruder Surface - Le cer- 
veau - Blue Cards - Coulmëlo 

HS 10 Agenda • Titreur Skyhawk - Packy - Volumes - Musice 
HS 11 Ulcmor - Mots Codes - Puzzle - Centipéde - Gestion Auto- 
mobile Chimie 

HS12 Amsboggle - Energix - Latin • Mission - Problèmes Régis 
tre 

. ANCIENS NUMEROS CPC 

J n 10, 11, 13, 16, 18. 19. 20, 23 24. 25, 26, 

27,28,29 30 31 32 33 34 35,36 37 38 25 F 



. HORS-SERIE 

□ n c 2 

Jn°3,4, 5,6, 8.9. 10. 11 12 



13F 
15F 



. DISQUETTES 

Jr.1,2,3,4,5,6, 7.8.9. 10,11 12, 13, 14,15, 16,17, 18, 19 
HS1 HS2, H 3. HS4, HS5, HS6 HS7. HS8 HS9. HS10 HS1 1 , HS12 



□ abonné 



110 F 



J non abonné 



□ abonnement disquettes (6) 



140 F 
600 F 



Entourez le (ou tes) numèro(s) commandé(s) 

Les abonnements disquettes ne sont pas rétroactifs 

TOTAL A franco port en sua 10 % 

pour envola par avion : 



□ Compilation n c ' 1 (CPC n 1 à 4) 
j Compilation n" 2 (CPC n c ' 5 à 8) 



80 F 
80 F 



J Programmes utilitaires sur Amstrad (Nelle édition) 110 F 

J Communiquez avec Amstrad i Nelle édition) 

D Bonomo-E Dutertre 115 F 

J Jouez avec Amstrad Kerloch 48 F 

□ L'univers du PCW - PatncK Léon 119 F 
Disquette* 

□ L'univers du PCW - PatncK Léon 150 F 

□ Communiquez avec Amstrad 250 F 

TOTAL B : PORT 10 % : 



Montant total de la commande (A+B) 



NOM 

Adresse _ 
Code postal 
Date _ . 



Prénom 



Signature 



Mercr a ùcnre en matasçu'e? Ototnl un clique hbedè à tofdre aes BfttoRfl SOVACOM 

Retourne* teftf ûn/tenn, sJ ou une pncuoawe à ti'ws SORACOK4 L a Haie de Pan - 3Sf7Ù BRUZ 



Délai minimum da livraison- 
15 jour» à racaption dê la commanda 




TRUCS & 




Pierre TACONNET 




PEAUFINAGES 



Le programme 
AGENDA de Thierry 
BALINT, CPC Hors-Série N° 10, se volt 
apporter par Dominique MERRIEN de 
Goue2ec quelques modifications uti- 
les. 

Lors du CHAIN de la ligne 680, le mas- 
sage «Press Play and Any Key» appa- 
raît en décalant le tracé sur l'écran 
d'une ligne, Apparaît alors «Loading 
AGENDA 1 BAS Bbck 1 * qui décote une 
nouvelle fols le tracé d une ligne vers 
le haut. Le chargement effectué, je 
résultat n'est pas brillant \ 

Voici le remède ad hoc et élémen- 
taire I 

580 C LE AR:CLS #3 ;CH Al N ' I 
AGENDA 1 ,BAS\70 

Il suffît abrs de sauvegarder le pro- 
gramme par : 

SAVE "IAGENDA.BAS* 
et Je tour est joué, 

D'un puriste anonyme cette modifi- 
cation de bon alol â apporter au pro- 
gramme de Tarn! Ctoude LE MOUL- 
LEC ROLUNG2. 

4560 IF vle>! THEN PEN l:LOCATE 
1 ,1 ;PRINr ONE PLAYER MEN UOCATE 
18. 1 :PRJNT VIE:RETURN ELSE PEN 
1 lOCATE 1 ,1 :PRINTONE PLAYER MAN 
*:LOCATE 18.1 :PRINT VIE:RETURN 

Que les choses sont belles lorsqu'el- 
les sont Justes! 



EN VRAC 



I ï peut être utile de suj> 
I primer tous les es- 
paces Inutiles dans un programme , no- 
tamment après PRINT, INPUT, après les 
commandes graphiques et en fin de 
ligne Rémi VILLATEL de Vïflequier nous 
indique le POKE à employer 

Avant de commencer ia saisie, entrez 
en mode direct : POKE &ac00 r ï et le 
tour est Joué. 

Une astuce, maintenant, pour faire |olt 
pendant le chargement 6 f une image 
d'écran. Entrez 1 



Après avoir fait RUN II suffit de char- 
ger votre Image d'écran par : 
CALL &a00Û,40:LOAD 'nomimage 
xxx'iCALL&ûOÛOAcO 

La routine est relogeable n J importe où 
sauf entre 5:4000 et 8(8000, 3i vous ne 
voulez pas subir de problèmes à 
f d écran après cette petite opération, 
évitez de le faire défiler, 

Mettre un rurtoo à votre lecteur de dis- 
quettes, çà vous intéresse ? Entiez 2 

Et c'est ainsi que Ton charge un fichier 
binaire de 7 7 Ko en , ,3 secondes t 





1 » - ru ift-y % • M 
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CHAIN SUR 464 



Manuel FERNANDEZ 
de Nantes pos- 
sède un 464 Schneider et regrette I ab- 
sence de CHAIN sur son mlcroordl- 
nateur, notamment avec le pro- 
gramme géant de Jean-Pierre PETIT 
sur la CAO 3D. 

Il a pourtant trouvé une solution satis- 
faisante Il commence le programme 
en iMOD 1 » comme suit : 

Avec ces modifications, la com- 
mande CHAIN fonctionne, les don- 
nées DIM sont conservées lors du chaî- 
nage 



TURBO SEMWORD 



Lors de la correction 
d un texte sur un lo- 
giciel de traitement de texte, r utilisa- 
teur est heureux de pouvoir accélé- 
rer la vitesse de déplacement du cur- 
seur Malheureusement. Semword 
n'offre pas de paramétrage de la vi- 
tesse du curseur 

C'est pourquoi Jean-Pierre MARQUET 
de Bouaké en Côte d'ivoire qui est 
décidément une bonne âme, vous 
offre Ici ses cor6ells de mise en œuvre 

Tout d'abord, il ne sert à rien d'Intro- 
duire une commande SPEED KEY dans 
le lanceur BASIC du programme, la 
partie en langage machine de ce- 
lui-ci réinitialiserait tout. 

En revanche, si vous chargiez Sem- 
word, que vous alliez au menu que 
par l'option B vous retourniez au BA- 
SIC, que vous «poklez* en &36fc la 
valeur désirée pour le premier para- 
métre (l'auteur prend 8) et que vous 
faisiez RUN, vous bénéficieriez des 
avantages de ce curseur rapide qui 
facilite tant la correction. 

SI vous ne voulez pas avoir à effec- 
tuer ces opérations à chaque correc- 
tion de texte, sauvez Semword mo- 
difié par la commande T. 



Le programme SE- 
CURITE INPUT de 
CPC N û 1 9 page 53 laissait passer quel- 
ques erreurs. Philippe PARFONDRY de 
Charterol. en Belgique, nous envoie 
ce petil programme plus performant. 



Nous ne remercions pas tout de suite 
Philippe car II nous offre la bidouille 
qui suit En prime , sans doute I 



K»0 i nr ,v;r 10, /?Pf un M s »<u < . " , 

t I rNC ïMPMTj " 7 •• - -r.; ..;-(..: • v \.>..- 

1 ff r> THS?N ICK3 PI Ws\ , 

} i nr^r, m ;- m\ t I ,VttftSH#0) % n 

«ÔKÏ KF'H ? Win un:;;!,; v - & < ■ * 

• if r«STm* r, "./h ï hc w swm« < > 
u*^ t jni -<> ^v'/imi 

: • ni* I 

r M>5*'" ( • S1î IF -«> AMI". • !J i" | | f » 

R&ÇtAO fi :...•-< , pfl 

.; -r,o rv»-. t n f r< jr4T l tffî* *. ~ - -| * i nr »-\ :*,-. f rtfe i 

I I 
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3 UNITES SUR 464 



Pou travailler sous 
CP/M sur des dis- 
quettes 5" }f4. par exemple, voici une 
adaptation des bidouilles des CPC 1 9 
et 31 pour 464, Est-Il besoin de rap- 
peler aux lecteurs qui n ont pas de 
bonnes connaissances en électroni- 
que qu II est préférable que, dans le 
doute. Ils s'abstiennent 7 

Si l'on veut que tout ce matériel fonc- 
tionne, Il nous faut tout d 4 abord voir 
du côté de l'alimentation (Flg 1), 

Opérations sur les fils en nappe venant 
de l'unité 3" (Rg2.3.4>- 

1 - sur le connecteur de l'unité A (celui 
du bout de la nappe) débrancHer le 
fil N° 25 et le taisser en l'air. 
Débrancher également le fil N* 24 et 
le brancher à la place du fil N° 25, 

2 - sur le connecteur de l'unité B, cou- 
per le fil N° 24 avant te connecteur 
{entre l'Interface et le connecteur B) 

Pour les connecteurs, maintenant 
exécutez les connexions suivant les 
figures qui suivent (Flg 5, 6), Connec- 
tez un connecteur mâle (su le con- 
necteur femelle de l'unité B) avec 2 
connecteurs pour unité de 5*1/4 en 
prenant soin de séparer de la nappe 
les flte N° 23, 24 et 25 du connecteur 
mâle (B) et des dis N û 1 0 des connec- 
teurs 5*1/4. 

SI vous avez bien suivi tes différentes 
opérations, votre principal problème 
sera, maintenant, de trouver suffisam- 
ment de place sur votre table de tra- 
vail pour Installer tout ce matériel I Un 
grand merci de la part des utilisateurs 
de CPC 464 à Philippe PARFONDRY 
dont le nom restera désormais gravé 
dans la mémoire. 
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Flg.4 




Fig.6 



I ous vous rappelons 
I que cette rubrique 
n'existe que grâce à votre collabo- 
ration. N'hésitez donc pas à faire pro- 
fiter vos amis lecteurs de vos décou- 
vertes ou de vos transcendances. Fai- 
tes parvenir vos envols à AMSTAR & 
CPC - La Haie de Pan - 35170 BRUZ. 
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NEMESIS 
EXPRESS 



Vous êtes passé du 464 au 6128 
et votre stock de cassettes (ori- 
ginales bien sûr) dort sous une cou- 
che de poussière. Eh oui, les disquet- 
tes présentant une infinité d'avanta- 
par rapport aux cassettes et l'idée 
de devoir recourir à ces dernières pro- 
voque chez vous une mélancolie pro- 
fonde doublée d'une angoisse exis- 
tentielle. Mais voilà Nemesls Express qui 
débarque avec sa disquette magi- 
que. Il va résoudre quasiment tous vos 
problèmes de transfert de cassette à 
disquette. Comment va-t-il faire ? 
C'est très simple : deux faces de dis- 
quettes contiennent les utilitaires qui 
vont faire le travail pour vous. Com- 
mençons par la face A. 

Sur cette face, on trouve des utili- 
taires spécialisés dans le Speedlock. 
Le Speedlock est une protection cou- 
rante sur les cassettes et elle se mani- 
feste souvent par une bordure cligno- 
tante et par des noms de fichiers étran- 
ges comme «II». Mais comme il existe 
des tas de Speedlocks différents. Il ne 
suffit pas d'un programme pour s'oc- 
cuper de toutes les protections. C'est 
pourquoi Nemesis propose 10 routines 
uniquement pour les Speedlocks. Une 
autre question se pose alors. Com- 
ment choisir le bon programme adap- 
té ? C'est à ce moment qu'intervient 
l'inspecteur Bonzo ou plutôt le pro- 
gramme «DETECT». Celui-ci va cher- 
cher la protection Speedlock sur la 
cassette et vous donner la ou les rou- 
tines à employer pour effectuer le 
transfert. 
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Mais l'Inspecteur Bonzo n'est pas 
infaillible. Il arrive qu'il ne sache quoi 
vous conseiller et il faudra vous dé- 
brouiller seul ou presque pour trouver 
le bon utilitaire. La plupart du temps, 
il suffira d'effectuer un catalogue de 
la cassette pour déterminer le type 
de protection Speedlock utilisé. Le 
résultat sur la disquette sera constitué 
par une série de fichiers numérotés. 
Ces fichiers peuvent alors être trans- 
férés sur une autre disquette (on tra- 
vaille en effet sur la disquette conte- 
nant les utilitaires : donc la copie de 
sauvegarde est impérative). Pour cela 
vous disposez d'un utilitaire de co- 
pie de fichiers : BONZCOPY (à noter 



que vous trouverez également un uti- 
litaire de copie de disquette). Sur la 
même face de disquette, on trouve 
un autre programme de transfert in- 
titulé HP 2 et qui peut être utilisé pour 
d'autres protections complexes. 

Passons maintenant à la face B. 
Le programme Bonzo présente une 
menu permettant : le transfert des pro- 
grammes standards en Basic ou en 
binaire, la manipulation des fichiers 
sans en-têtes (utilisant la routine sys- 
tème &BCA1). les transferts flashload 
ou encore pour les Speedlocks et enfin 
un catalogueur de disquettes. Vous 
en voulez encore ? Eh bien, sachez 
que les Bonkeys viennent à votre res- 
cousse. Ce sont de petits programmes 



(il y en a 11 !) qui s'occupent de pro- 
tections spéciales. Tout est expliqué 
dans la notice. 

Mais certains programmes trans- 
férés ne fonctionnent pas directe- 
ment, il leur faut un petit programme 
en Basic qui initialisera les encres ou 
des adresses mémoires. . . Nemesis Ex- 
press vous en propose toute une sé- 
rie prête à l'emploi. 
Finalement, il vous est fourni une liste 
d'environ huit pages contenant des 
titres de logiciels et les programmes 
utilisés pour les transférer. 
Alors, encore des problèmes de trans- 
fert ? 

Edité par Duchet 



HELPB ASIC & HELPBASE 



La programmation en Basic, si elle 
est simple, nécessite parfois une 
période assez longue de mise au point. 
La recherche des erreurs fait même 
partie du sel de la conception d'un 
programme. Deux instructions permet- 
tent le suivi en direct du déroulement 
d'un programme Basic, il s'agit de 
TRON et de TROFF qui permettent 
d'entrer et de sortir du mode trace. 
Mais tout le monde a déjà observé 
le résultat de ces instructions à l'écran : 
une pluie de numéros apparaît plus 
ou moins rapidement et l'on éprouve 
une certaine lassitude à essayer de 
suivre les tribulations numériques des 
nombres en folie. Alors, pas de solu- 
tion ? 

Helpbaslc peut sans nul doute venir 
à votre secours : une série de com- 
mandes RSX augmentent les possibi- 
lités de l'Amstrad en ce domaine. Si- 
nalons tout d'abord que la routine inl- 
tialisant les RSX est relogeable : il ne 
devrait donc pas y avoir trop de pro- 
blèmes pour une cohabitation avec 
d'autres programmes. Les instructions 
disponibles sont au nombre de 7 : |T 
qui permet de revenir à la notice du 
logiciel; |TRON suivi d'un paramè- 
tre entre 0 et 9 (numéro de canal) une 
fois placé à l'intérieur permet de «tra- 
cer» un listing aussi bien dans l'une des 
8 fenêtres que sur imprimante (canal 
8) ou sur disquette (canal 9). | TROFF 



effectue bien sûr l'opération d'annu- 
lation de la commande précédente. 

| LIST, Installé à l'intérieur d'un pro- 
gramme autorise la sortie du listing vers 
un périphérique (écran, imprimante, 
disquette) précisé dans le paramètre. 
Cette instruction liste le programme 
jusqu'à ce qu'il rencontre une instruc- 
tion | NOLIST. On peut ainsi sortir des 
morceaux de programme sur papier 
ou sur disquette. 

I VRBAS s'utilise avec | TRON. Cette 
instruction peut être utilisée pour sor- 
tir à l'écran le contenu d'une varia- 
ble importante par exemple. Il suffit 
pour cela d'Insérer dans le program- 
me les instructions |VRBAS.O et 
| VRBAS, 1 (dans cet ordre), elles déli- 
miteront une zone contenant, pour 
notre exemple, un PRINT «variable», va- 
riable. A chaque fois qu'une ligne sera 
«tracée», la zone mise entre « I VRBAS» 
sera exécutée. 

| TEMP introduit lui une temporisation 
variantde0à255. L'attente peut être 
interrompue par l'appui sur une tou- 
che quelconque sauf ESC. 

Il reste un programme sur la dis- 
quette. Il s'intitule Helpbase. Il s'agit 
d'une base de données contenant 
sur la disquette d'origine une série de 
1 1 exemples de programmes «tracés». 
Mais vous pouvez vous-même créer 
votre base de données grâce aux RSX 
nouvelles qui sont apportées par Hel- 
pbase : | TITLE suivi d'un paramètre 



Indique le nombre de programmes 
contenus dans Helpbase. Ce chiffre 
peut varier de 1 à 254. 

Enfin, | ECRAN utilise deux para- 
mètres pour définir à la fois le mode 
de l'écran «Exécution» et la place res- 
pective occupée par les fenêtres «Vi- 
sualisation» et «sortie du listing». Pour 
faciliter la mise en place de vos pro- 
grammes, les touches de fonctions ont 
été redéfinies. La contrainte consiste- 
ra à ne pas utiliser les lignes Inférieu- 
res à 1 00 car elles renferment le pro- 
gramme Helpbase lui-même, 

Tous les programmes cohabitent en 
mémoire et reçoivent chacun un 
numéro d'appel (placé dans un ON 
GOTO). Les programmes se terminent 
tous par un RUN qui redonne le con- 
trôle à Helpbase. 

La disquette contient suffisamment 
d'exemples pour que l'on puisse utili- 
ser assez rapidement cet ensemble 
de programmes. Mais il faut quand 
même connaître au minimum l' instruc- 
tion d'origine TRON et son fonction- 
nement pour utiliser avec profit ces 
RSX. En fait, cet ensemble sera surtout 
profitable aux personnes apprenant 
le Basic. Elles pourront ainsi contrôler 
leurs listings et suivre l'exécution de leur 
programme. 

Edité par : TRANSFORM - 15 rue Jean 
Jaurès - 95240 Cormeilles en Parisls 
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DOUBLE 
MODE 



Ce programme ajoute de nouvelles commandes RSX au Basic 
pour pouvoir gérer deux modes à récran. 



I se produit une interruption tous les 
l/300è de seconde, or l'image a 
_ une fréquence de renouvellement 
de 50 Hz, c'est-à-dire qu'une nouvelle 
image commence à s'afficher à 
l'écran toutes les 6 interruptions. SI l'on 
change le mode d'écran pendant le 
renouvellement de l'image, on va 
alors obtenir deux modes à l'écran. 



• | INIT, mode 1, durée, mode 2 
Cette instruction initialise la routine d'in- 
terruption pour obtenir 2 modes à 
l'écran. La partie supérieure de l'écran 
est représentée par la fenêtre supé- 
rieure (ou n°=1) et la partie inférieure 
par la fenêtre inférieure (ou n°=2). 
Le mode de la fenêtre supérieure est 
donné par le premier paramètre : 



mode 1 . Le paramètre durée définit 
la hauteur de la fenêtre supérieure en 

1 /300è s ou plus simplement en quart 
d'écran. Le dernier paramètre : mode 

2 définit le mode de la fenêtre infé- 
rieure. 

• | OFF permet d'arrêter la routine 
d'interruption et de repasser au mode 
unique. 

Remarque : il est Indispensable d'uti- 
liser cette instruction avant tout ac- 
cès disque. 

• | ON remet en marche le double 
mode arrêté par | OFF, 

• | TEXT, n° fenêtre 

Place le curseur text au début de la 
fenêtre spécifiée et redéfinie les dif- 
férents paramètres d'écriture en fonc- 
tion du mode de la nouvelle fenêtre. 
Attention : l'emploi de l'Instruction 
mode du Basic détruit les paramètres 
définis par | TEXT. 

• | COLOR, n° fenêtre, border (. inkO 
(.inkl C,ink2... (,inkl5)... ))) définit le 
border et les inks d'une fenêtre don- 
née ; on doit au minimum définir le 
border, les inks pouvant êtres omises. 



Remarque : il y a, entre les deux fe- 
nêtres une ligne inaccessible. Ceci est 
dû au tait qu'elle est coupée en deux 
parla limite réelle des deux fenêtres. 



Frédéric NYER 



10 'MELANGE DE HODE - Chargeur basic 
20 ' 

30 1=120 : MEMORY fc9FFF 

40 FOR 1=40960 TO 41567 STEP 8 

50 sui=0 

60 FOS J=0 TO 7 

70 BEAD a»:a=VAL(«i"*at):sui=sui+a:POKE Hj.a 
80 NEIT 

90 READ ai:lF VALCV*i*)<> sui THEN PRINT CHRK7) 
eur de DATA en ligne" ;1:END 
100 l=l+10:KEXT 

110 SAVE'rsidoubl'.b.iAOOO, 1268: END 
120 DATA AF,32,F4,A0,32,F3,A0,21,45B 
130 DATA 10,A0,01,14,A0,C3,D1,BC,3B5 
140 DATA 00,00,00,00,25,AO,C3,24,1AC 
150 DATA A1,C3,50,A1,C3,38,A0,C3,4B3 
160 DATA D9,A1,C3,68,A1,4F,CE,4F,4B2 
170 DATA 46,C6,49,4E,49,D4,43,4F,352 
180 DATA 4C, 4F, 02,54,45, 58, 04,00, 332 
190 DATA FE,03,C2,50,A2,7B,FE,03,431 
200 DATA D2,54,A2,32,D6,A0,D0,7E,4CB 
210 DATA 04,FE,03,D2,54,A2,32,BB,3BA 
220 DATA AO,DD,7E,02,FE,05, 02,54,426 
230 DATA A2,3C,32,F6,A0,47,3E,06,331 
240 DATA 90,32,F7,A0,3E,06,32,F5,3C4 
250 DATA A0,21,B0,A0,22,AA,A0,3A,3B7 
260 DATA F3,A0,B7,28,O6,21,F8,A0,431 
270 DATA CD,E6,BC,3E,FF,32,F3,A0,571 
280 DATA 32,F4,A0,CD,14,BC,21,F8,47C 
290 DATA A0,11,A5,A0,01, 00,81, CD.345 
300 DATA 19,BD,CD,E0,BC,1E,01,3A,398 
310 DATA F6,A0,FE,01,20,02,1E,02,2D7 
320 DATA 3E,01,C3,68,A1,3A,F5,A0,3DA 
330 DATA 3D,CA,B0,A0,32,F5,A0,C9,4E7 
340 DATA 3A,F6,A0,32,F5,A0,D9,79,4E9 
350 DATA E6,FC,F6,00,4F,ED,49,D9,536 
360 DATA 21,CB,A0,22,AA,A0,21,02,31B 




370 DATA 

380 DATA 

390 DATA 

400 DATA 

410 DATA 

420 DATA 

430 DATA 

440 DATA 

450 DATA 

460 DATA 

470 DATA 

480 DATA 

490 DATA 

500 DATA 

510 DATA 

520 DATA 

530 DATA 

540 DATA 

550 DATA 

560 DATA 

570 DATA 

580 DATA 

590 DATA 

600 DATA 

610 DATA 

620 DATA 



Al, 18, 19, 
A0,D9,79, 
ED, 49,09 
A0.21, 13. 

>,79,ED, 
20,F5,C9, 
00,00,00, 
00,00,44, 
55,50,46, 
44,57,44, 
54, 55,50, 
59,44,57, 
F3.A0.3C, 
C8,3E,FF, 
A0.22.AA, 
F8,A0,3E, 
19.BD.CD, 
C2,50,A2 
32,F3,A0 
BC,3A,C3 
FE.01.C2 
B7,C8,7B, 
03.D2.54, 
F6,A0,47, 
10,FC,7B, 
CA.54.A2, 



,3A,F7,A0, 
,E6,FC,F6, 
.21.B0.A0, 
,A1, AF.06, 
,59,23,3c, 
,00,00,00, 
,00,00,00, 
4A,53,4C, 
,5E,5F,47, 
44,4A,53, 
46,5E,5F, 
44,C2,50, 
C8,3A,F4, 
32,F3,A0, 
A0.CD.14, 
0l,32,F5, 
E3,BC,C3, 
3A.F3.A0, 
.21.FB.A0, 
B7,CD,0E, 
50,A2,3A, 
B7.CA.54, 
A2,21,CF, 
05,28,04, 
30,20, OC, 
1E,00,3A, 



32.F5.3CA 
00, 4F, 519 
22,AA,44C 
7F.5E.307 
,FE,U,41A 
.00,00, IDE 
,00,00,000 
4B,54,1CC 
52.59.2A7 
4C,4B,257 
47,52,2A2 
A2.3A.326 
AO.B7.51C 
2i,B0,49B 
BC.21.3CA 
A0,CD,46B 
95.A0.53A 
3C,C0,47D 
CD,E6,531 
BC,C9,4D0 
F3.A0.480 
A2,FE,56F 
Al, 3 A, 396 
23,23,254 
7E.3C.2AA 
BB,A0,373 



DATA 18, 
DATA 1E, 
DATA 6E, 
DATA 66, 
DATA 00, 
DATA 80, 
DATA E4, 
DATA 00, 
DATA FF, 
DATA 6F, 
DATA DD, 
DATA 63, 
DATA 2B, 
DATA 11, 
DATA 11 
DATA Al, 
DATA 1F, 
DATA E5, 
DATA 4F, 
DATA 14, 
DATA 00, 
DATA 07,1 
DATA OA, 
DATA 3E, 
DATA F5, 
DATA C3, 
DATA 00, 



0B,23,7E,3C,CA,54,A2,2C0 
,1B,3A,D6,A0,32,C3,B7,392 
,26,00,CD,17,BC,50,CD,351 
BB,3E,01,CD,90,BB,3E,3B6 
, CD, 96, BB, 21, 00, 00, 11,250 
02,CD,CF,BB,3E,00,CD,3E4 
BB,3E,01,C3,DE,BB,FF,539 
04,06,0A,0C,12,14,17,05D 
FE,02,38,73,FE,13,30,3EB 
47,5F, 1D,CB, 23, 16,00,236 
19,D0,E5,E1,7E,B7,28,4F6 
FE,03,30,5F,05,05,2B,228 
3D,7E,20,OB,CD,1F,A2,29F 
02, Al, 32, 12, Al, 18,09, 1BA 
13,A1,C0,1F,A2,32,23,2A8 
78,B7,C8,2B,2B,7E,CD,439 
A2.12,i3,10,F6,C9,C5,37A 
21,30,A2,E6,1F,06,00,2E3 
09,7E,E1,C1,F6,40,C9,477 
04, 15, 1C, 18, 1D, OC, 05, 08F 
i,06,17,lE,00,iF,QE,08B 
OF,12,02,13,1A,19,1B,08B 
03,08,01,08,09, 10,11, 04B 
02,18,02,3E,05,OE,00,OAB 
CD,0F,B9,CD,00,B9,F1,501 
55, CE, 00, 00,00,00,00, 1E3 
00,00,00,00,00,00,00,000 



DEMO 

• A n'utiliser qu'après avoir le fichier RSXDOUBL.BIN sur votre disquette. • 



10 MEMORY 19FFF: LOAD'rsxdoub I * :CALL fcAOOO >NE 

20 IINIT.2,1,0 >ZB 

30 iC0LOR,l,2,l,24:;C0L0R,2.26,4,5.6,7,8.9.10,il,l2,13. >UC 
14,15,16,17.16,20 

40 LOCATE 25,3:PRINT"ecriture en iode 2 avec 2 couleurs >PK 

50 ITEXT, 2: LOCATE 2.2:PRINT "écriture en iode 0" >ZL 

60 LOCATE 3,4:PRINT "avec 16 couleurs" >LR 

70 FOR 1=1 TO 4:F0R j=l TO 4:R£AD a: PAPER a: LOCATE 8H, >Alf 
6*j:PRINT " ":NEIT j,i 

80 CALL 4BR18 >FD 

90 :C0L0R,2,26,O,INT(RNDi27),INT(RNDi27),INT(RND»27),IN )PF 
T(RNDi27). INT(RNDi27), INT(RNDt27), INTIRNDI27), INT(RNDi2 
7), INT(RND«27), INT(RNDi27), 1NT(RNDI27), INT(RNDi27), INT( 
RNDI27), INT(RMDi27), INT(RNDi27) 



100 FOR H TO 20:NFJT j:lF IHKEY$="" THEM 90 >KC 

110 DATA 1,2,3,4,5,0,6,7,8,9,10,11,12,13,14,15 >KK 

120 :iNIT,Û,2,0 >FD 

130 ICOLOR,1, 14,0,1.2,3,4,5,6,7,8,9,10,11, 12,13,14,15 >VA 

140 ICOLOR, 2, 22, 0,17, 18. 19, 20, 21, 22. 23. 24, 25, 26, 27, 28, 2 >F0 
9,30,16 

150 LOCATE 6,2:PR1NT "26 couleurs" >FR 

160 LOCATE 7, 4: PRINT "en iode 0" >CB 

170 LOCATE 3,10:F0R 1=0 TO 15:PAPER i:PRINT • ";:NEXT >UQ 

180 ,'TEIT,2 > G j 

190 LÛCATE 3,4:F0R i=0 TO 15:PAPER i .-PRINT " ";:NEIT >ÏA 

200 CALL &BB18 > L H 

210 !0FF:M0DE 1:L0CATE 10,13:PAPER 0:PRINT "Retour au ■ >HG 
□de unique": PRINT: PRINT: CALL &BB18 
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CATALOGUE 



Vente Par Ci 



orrespondar.ee 





Offre valable 
jusqu'au 30/04/89 



Boîte Data Case 

avec serrure 

+ 

1 0 disquettes 
3 pouces 



310F 



le lot 



+ 25 F 
forfait 
port et emballage 



Du lycéen à I Ingénieur 

Ce loge: M permet l'étude de fonctions . de suites numériques, 
et la résolution d équations 
Quelques opNons disponibles : 

• E'ude de toutes les fonctions à 2. 3 et A variables. 

• Etude de suites arithmétiques, géométriques ou définies 
par une expression, 

• Résolution d équations trfgonomé triques sur le cercle 

• Possibilité de tracer dans 2 modes graphiques, et dans 
un repère quelconque . avec une échelle variable. 

• Variations, calcul des maximums et minimums, et des points 
a Intersection aux axes de la fonction 

• Calcul de dérivées, d'Intégrales 

• Tracé de tangentes tracé e* étude des fonctions réci- 
proques 

• Courbes en coordonnées polaires 

• Sauvegarde et Impression des graphiques réalisés. 

Disponible sur ctisQueffe 3' pour CPC 464 664 et 6 128. 
au prix de 230 F 
R6f BÉPOOI 



MULTICOURBES III 

de Sylvain VIEUJOT 



il U 




SELECTION 



B.E.P. 



,0 10 C .ïMMANP, PERFORMANCE 

12JEUI£ICEP*ONNClS 

<t4 of«rca:.paci 

AFTUBUHNEP 
8 ATM AN 

BOB MORANE OCEANS 

Ct.A5StOuES 1 
D4AOÛM MfcM 
ECMElOM 
Fi&É IFORGET 
FlfT AND TMfiûTTlES 
GAl ACTIC CONQ"EFCrR 
GEANT 3 MCAJE2 
HERCES DP THE LANCE 



OT7I n 
077)0 



2SOF 
196 F 

tes p 

ISS F 
»4SF 
215 F 
140 F 
145 F 
1*5 F 
UHF 
165 F 
140 f 
225 F 
Z20F 



INTEW*AT»ONAL MRAU 

LE LIVRE DE LA JoNGLE 

LEDSTORM 

LES 1001 VOYAGES 

LES AVENTURIERS 

LES FUTURISTES 

MANOiR MORTtVILlE 

METAPLEX 

MlCf» SCRABBLE Lilff 
MOI OR MASSACRE 
NFTHERWORLD 
OPERATION WOL F 
PAC MANIA 

PACK i jFf SMORE. . GALACTN1 . FlREi 



Dr-»" 
DP I 



dÙF 
196 F 
'65 F 
Jt5F 
220 F 
215 F 

tas f 

«PF 

230 F 
165 F 
1*5 F 

n»r 

1WF 
360 F 



PETER BEARSLEY 
PUB G AMES 
RTYPE 
RAM QC 3 

RETURNOFTHEJE» 
ROBOCOP 
SXYRUNTER 
THUNTJERBLADE 
TIGER ROAD 

mm 

TCTAL ECUPSE 
TïPHOQN 
viCTORV ROAD 
WEClEMANS 



£JT7t52 

t»^1«4ï 

Ç [7NJI 
PT {Ci 



1WF 
OC F 

■ F 
U5F 
Î65F 
14£F 
21SF 

tes f 

166 F 
136 f 
145 F 
14S F 
145 F 
145 F 





Les forces du mal ont envahi le royaume de BELDA Une légende raconte que quatre 
aventuriers un magicien, un elfe, un guerrier et un saltimbanque viendront un jour appor- 
ter à nouveau la paix. 

Ce jour est venu. Levez-vous, héros de tous les temps ! Venez délivrer LlBRAE e« entrez 
dans la légende J... 

SKY> est un |eu d'arcade mêlant à la fois l'odresse et la stratégie 
Réf. LS OOl 



120 F 



BON DE COMMANDE 



à adresser à BRETAGNE EDIT'PRESSE 
La Haie de Pan - 35 1 70 BRUZ 



DESIGNATION 


REF. 


QTE 


PRIX 


PORT 


MONTANT 






























































Forfait port 10F par logiciel 
Facultatif : recommandé 4 10 F par commando 

MONTANT GLOBAL 






* clientèle de choisir 



Je joins mon règlement chèque bancaire J chèque postal j mandat J Carte Bleue J 



Nom 
N 



Prénom 



Rue 



Code postal 



Ville - 



IMPERATIF 

Si vous choisissez le paiement 
par Carte Bleue, n'oubliez pas d'indiquer 
le n de la carte et la date de validité 
ainsi que votre signature 



N Carte Bleue 



Date limite de validité 



Signature 



O 

6 

J3 
3 

f 

— 




TITES 
NONCES 



La place réservée aux petites onnonees est limitée En conséquence, celles-o passent dons leur ordre 
d arrivée Par -:on're. 'es petites annonces farfelues son» systématiquement rejetees . De même, comme 
il 95t peu probable qu'il exisie des ' généreux donateurs" de matériels ou de logiciels, les petites 
annonces foisant appel à ces philontropes ne seront insérées que si la place libre le permet 
Seront refusées toutes les annonces visant a vendre ou échanger des listes ou copies de logiciels rtofl 
garantis "d'origine", ainsi que toute annonce incitant au piratage 
En conséquence, réfléchissez bien avant d'envoyer ^os texte* Les petite» annonces doi 
vent impérativement nous parvenir sur lo grille (découpée ou photocopiée), le rexte erarr 
rédige o roison d un caractère par case 

Enfin route annonce non accompagnée de itmbres ne sera pas insérée 



Vends 1000 jeux et utilitaires Dites celui que 
vous désirez avec, paiement PV 45 F thiERV 
Laurel)! - Route de Met2 - 55210 
VIGNEULLES 

Vends Amstrad CPC 464 mono «- 70 ieu* dont 
30 ou plus en cadeaux, le tout neut 2500 F 
ou moins ~ nb cadeaux Tel 56 76 86 52 - 
David SANTOS 

Vends CPC 464 couleur * synthé vocal + 
nombreux jeux et utilitaires + documentation 
etl.vres 2500 F Tel 51 32 74 99 

Vends 61 28 coul * 250 dises pleins ♦ revues 
(100) i livres (20) * doubleur joystick + 
contacts, cause service militaire Tel 
20 47 18 32 Samuel 

Vends plusieurs feu* pour CPC 6128 à bas 
prix Tel 32 43 69 38. demander Frédénc 

Vends CPC 6126 coul . 60 dises 300 jeux, 
nbx util nb* revues adapt pôntel, le tout trêc 
bon étal 4000 F * TV N&B 500 F LAURENT 
Tél 45 77 9193 

Vends CPC 464 mono + 30 jeux DT 
Consp ration La Chose Joystick en onme 
le «OUI 1 300 F Tel 48 83 92 80 après 1 9h00, 
demander Grégoire - La Varenne 94210 

Vends 464 couleur excellent étal - K7 
originales 4 joystick 2500 F valeur 3800 F 
Tel 97 55 16 38 parlai! pour cadeau noèl 

Cherche documents sur WasterMe 464 vers 
i 4 par Campbell Software Ecrire M 
BEC LIN - Ci rue de Nifter - 6S1 10 lUzach 

Echange logiciel util pour CPC 6128 cherche 
contact assembleur MERLE J M - 13 rue 
Vtsticot - 62860 Osy-le-Verger 

Stop affaire I Vends CPC 6 1 28 coul * manuel 
* manette * 25 dises très bon état (nb* ieux 
- utilitaires) Tél 39 83 42 55 à partir de 
19h00 Urgent 

Cherche contact DK sur Caen et sa région 
pour échange, cherche également un lecteur 
5 v 4 Vortex avec doc - LE GAC J Claude - 3 
rue de Suède - 14460 Colombe 0£ 

Echange CPC 4S4 coul - 90 jeux et util. * 
ioyst<cK • doubleur - console de ieu* ThomsDn 
contre T08 ou T09 ou TOS- avec monit. Tél 
89 40 22 54 

Vends 6128 coul * 60 disks + housses + 
doubleur 4 revues 4 joystick 3500 F à 
débattre Têt 39 56 43 60 - Jouy en 
Josas - Yveline 



Urgent acheté clavier CPC 6 1 28 (ou 664). prix 
maximum 1 200 F Tél 83 32 1 7 49 heures 
repas Demander Lionel 

Echange jeux sur 6128, beaucoup de 
nouveautés Tel 38 75 5173 a partir de 
19h30 - Richard FANCELLI - 4 ave- 
Foch - 451 70 Neuville au> Bois ap 19 h 30 

Super le journal sur 3" Mcroboy Depéchez- 
vous ! Envoyez 2 ttmb HALLAIS Fabrice - 4 
allée Berny d Hou ville - 93190 Livry-Gargan 

Echange /eux sur CPC disk, posséda Rastan, 
1943 Game over 2, Marauder, Gunship 
Hoppm, Psycbo pig Tél. 51 58 96 95 
Demander Tay 

Cherche pour CPC 6128 jeux aventure vends 
Atan 520 STF avec jeux 2600 F Tel 
87 03 51 67 - Région Sarrebourg 

Achète 50 F pièce Log - Not util Jade 
Oxford PAO, jeux Space Racer DeMector 
Mart.al DURPOIX - Beaumeml - 88600 
Bruyère 

Vends Amstrad CPC 464 coul 150 jeux + 
manettes, la bible du programmeur +- 80 iiv ■ . 
(Amstar etc ) Demander Mathias Tél 
67 50 88 10 

Vends CPC 464 mono 1 joystick Sony * 
nombreux jeux orignaux 1500 F Tél 
64 88 69 74 



Vends CPC 6 1 28 très bon état avec manuel 
3200 F Demander Régis au 86 97 83 67 ap - 
I7h 

3500 F 6128 C^t man - 20 jeux 1- tahiev- 
graphtscope > 20 util PACALET Stéphane - 
25 Ch de la Barre - 38260 La Côte Sî André 
74 20 29 39 

Achète synthétiseur vocal fechnimustque pou' 
CPC 6128 Pas cher Tél 78.75 56.50 
Demander Annie 

Achète logiciel pour 6128 util., éduc. dBase 
II. devis. Multiplan Factslock Dalamat Tasco 
SAINTY - 18 AV BIBLOCQ - 62155 
MERLiMONT 

Vds 6128 coul «Ort 87» ^ 5 «Vonex sous 
gar ♦ 10 D7 S» T 5û D7 5 * Boite rang le 
tout 6500 F Tel 44 22 05 96 

Echange nombreux jeux sur CPC 61 J> 
Réponse assurée - DROUET Jacques - Bd 3 
Bd Gngnan - BP 1203 - 83070 TOULON 
CEDEX 

CPC 6128 Vends, échange achète possède 
news (Rastan, Vmdicator ) Tran PM - 21 
Av Georges Brassens - 87500 ST VRiEiX 

464 Echange logiciels K7 & dises Envoyer 
liste GUILLOTJ-P -43 Grande Rue -80510 
LONGPRE-LES-CORPS-SAlNTS Repense 
assurée 




LES PETITES ANNONCES ET LES MESSAGES 

: Attention, vos FA seront mises sur le serveur avant la parution du journal 
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Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM. La Haie de Pan - 351 70 BRUZ 





Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 



AMSTAR 

cpcm 



Lm U*W de Put - Jfl-tt BSLZ 

m «9,52,9* II - T«cop*e 9**517*57 
Srr*mrt : ^615 ARCADES ET 3*15 MHZ 



REDAniO* 

CMih«nne NlARD 

-SAOLETH 
FABRICATION 

Dlr«««iir de fabrication 

Bdimvl COUDËFT 
M*t|ucttuic 

Lac A«>*mî 



ïuUUr HALCCRT 
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Vends à partir de 35 F mes originaux sur disque 
ou échange contre news (jeux, utilitaire, autres) 
77MEAUXLuc.Ttf 64.34.17.84 

Echangera surK7ou D7 pour Amstrad C PC 
Réponse assurée, Envoyer vos listes à J.P 
ETIENNE - Les Fossés - 72600 MA MERS 

Vends lecteur 5P1/4 720 K 80 pistes double 
face mardis en dnve A et B pour GPC 61 23 
Prix 1400 F Tél BS 84.92,1 7 ap. 13 h 

6123 échange news (possède Opérationwolf 
- Double Dragon - Thunderblade) Cherche 
Afterbumer, Crazy, Cars II, Tiger Road + Vends 
originaux (Tank, FIS Strike Eagle, Géométrie 
3e, Califomiagames, Geebee Air Rally) 65 F 
pièce TROC H ET Fabrice - 4 me Poullart des 
Places - 35700 R4ENNES-Tét. 99 36.70 20 

Vends CPC 6128 monochrome + câble 
imprimante + livres Micro-application + 
logiciels Turbo - Pascaf Pnx 2300 F Tôi 
43 37.56.61 

Urgent vds graphiscope 2 sous garantie (Nov 
88) cause double emploi 800 F Laurent 
RYDER - 87 A rue de la République - 30 
NIMES 

Vds CPC 6128 couleur, nbx jeux, manettes, 
housse, boîte. Prix : 3600 F Tel 78 40 47.16 
ap. 19 h 

CPC 6128 cherche imprimante + câble de 
raccordement Té! 60.01 57 22, Demander 
Nicolas après 18 h 30 1 500 Max 

Pour CPO 6128 gestion budget familial + 
Compte banque emploi aisé chêq 107 F à 
MAURER D. - Ch. du Sablas - B4450 St 
Saturmn/ Avignon 

Vends pour Amstrad CPC 6128 drive 3*1/2 - 
ICV - double face. Etat neuf A saisir Prix 
1000 F. Cause passage sur PC. Tél. 
60 28 40 54 - Gérard 

Vends revues -Micro-Stràd», la revue des 
mrcros Amstrad du n° 1 au n° 10 (revues de 
collection) Pnx . 300 F Tél, 60.28,40.54 - 
Gérard 

Big Club Espagne; échange logerai s Amstrad 
sur K7 ou disk. Liste sur demande. BiG CLUB 
C/HISPANIDAD - 67 B1-4B - 50Ô12 
ZARAGOZA, Espagne 

Vends Amstrad CPC 61 28 oout parfait état + 
20 dises + joystick 3000 F à débattre Arnaud 
Tel 43.3129 69 



Vends CPC 6128 cou! + softs f revues 
manuels : 3500 F, vends impnmante Citizen 
120 D: 1500 F Tô» 48 34,81 54. Demande* 
Eric. 

New * Nouveau journal freeware zoom pour 
res Contacter Mrckael au 64.65.15,23, Soyez 
nombreux \ 

Recherche interface TV pour Amstrad CPC, 
TéL après 20 h au 42 08 62 53 la semaine 



Vends impnmante Amstrad DMP 2000 h bon 
état 1000 F COLOMBIE - 210 av 
Limoges - 87270 Couzeix Tél 55 36 43 73 

Cherche désespérément Vectoria 3D et Space 
Racer. à pebt prix. Echange possible Té* 
60.29.25,08 (vers 19h00), 

Vends CPC 464 monlt. coul. + joystick + kit 
nettoyage + nbx cassettes feux dont IK * 
Renegade etc vendu 2500 F, TéL 
89 39 87 66 après i6h00 

Viens de créer club (Amstrad K7 P D7) spécial 
plans, listings, astuces.. Ecnre â MON20 
Damien - 5 nie Franz Liszt - 6OO00 Beauvais 

Recherche passionné de programmation sur 
6128 en vue échange idées et création 
programmes région Nantes Tél 40 04.01 95 

StartCPC nouveau journal d'Informatique pour 
Amstrad-Thomson cherche lecteurs et 
rédacteurs Tél 47 96 66.01 

Vends Amstrad CPC 6128 monochrome + 
souns A MX 2500 F TéL 90 66 06 33 

Vends CPC 464 mono * joystick * revues * 
100 |euK, valeur 4500 F sacnfié 1600 F, trôs 
bon état Tél. 42 72 35 59 après 18h00. 

Vends CPC 464 mono peu servi 1 500 F. Tél. 
85 82 05 42 le week-end, 

Vends Amstrad CPC 5128 couleur + livres + 
magazines + joystick + logiciels ; 3600 F 4 
imprimante DMP 2000 1400 F. Tél 
96 71 05,80 

Achète CPC 1-34 et HS 1. 2, 9 f 10 Cherche 
notices DAMS et OATAMAT. Paul MOLPE- 
CERES - J. Arrospkte, 30 - 48014 BILBAO 
Espagne 

A vendre CPC 464 mono 4 lecteur disquet- 
tes 4 joystick + 200 logiciels (jeux utilitai- 
res) , 2500 F Tél 61 86.67.41 (19h à 20h) 

Si vous voulez gagner bcp d'argent honnê- 
tement et chez vous, envoyez 2 timbres â 
GIRARD Fred - 14 me J. Collet - 69330 
MEYZIEU 

Echange Sold à Million 2 + Supercyde + 
Crazy Cars (originaux) 100 F un t 250 F tes 
3. Demander Bruno après 19h au 
63.75 93 59 

Vends Mirage-lmager 350 F , bus exten- 
sion maie, souris AMX 300 F Tél 
39.46.84 07 après 20h 

Vends péhph, Mirage Imager Turbo t câble 
6128 (garanti 4 mois). Valeur 500 F vendu 
350 F. Tél 84. 37 63,52 (après I7h30î 

Stop affaire ! Vds 6128 Amstrad, état neuf + 
MTH couleur + 50 jeux (bcp de nouveautés) 
+ QQUES DK vierges à CY OPT + manette : 
3400 F Tél. 48 76.73 32 

Achète pour CPC 6128, lecteur 5"1/4. Faire 
offre au 79,28.05.96 après 19h 



98 



Photocomposition SORACOM ■ Phutoeiaviirt SCANX-Ol'UST 
Lnpressiorj PARADOXE * Di^tribittinn PFMP? - QÉpfc à 
Imprime en \mé pai G. Canale & C S.p.A. - lurin 



LES INDISPENSABLES 
DE VOTRE LOGITHEQUE 




LOGICIEL ^djpH 


r EDITEUR 


GENRE 


NOTE 


AFTER BURNER 


Activision 


Arcade 


18/20 


BOULDEUR 


B.E.P. 


Arcade 


15/20 


CORRUPTION 


Rainbird 


Aventure 


15/20 


CYBERNOID II 


Hewson 


Arcade 


15/20 


DARK SIDE 


Incentive Software 


Aventure 


16/20 


~ DRAGON NINJA 


Imagine 




15/20 


- FIRE & FORGET 


Titus 


Arc /Simulation 


16/20 


GAME OVER II 


Electronic Arts 


Arcade 


16/20 


GUNSHIP 


Microprose 


Simulation 


15/20 


' LE MANOIR 


Lankhor 


Aventure 


17/20 


DE MORTEVIELLE 








OPERATION WOLF 


Océan 


Arcade 


16/20 


ROBOCOP 


Océan 


Arcade 


15/20 


SAVAGE 


Firebird 


Arcade 


17/20 


SKYX 


Legend Software 


Arcade 


15/20 


TITAN 


Titus 


Arcade 


16/20 


TOTAL ECLIPSE 


Incentive Software 


Aventure 


15/20 



-i3 



Les sorties de 
nouveaux 
logiciels se 
ralentissent toujours un 
peu en février et mars de 
chaque année ; aussi, 
nous avons décidé d'en 
profiter pour vous 
présenter un dossier 
regroupant tous les 
logiciels qui ont obtenu 
dans nos colonnes une 
note supérieure ou égale 
à 15 durant ces 6 derniers 
mois. Pour nous, cette 
note représente une 
appréciation assurant une 
qualité du logiciel et un 
intérêt certain suivant le 
genre que vous adorez. 
De plus, pour rendre ce 
dossier plus complet, 
nous vous livrons des 
conseils de jeu pour 
chaque titre présenté et, 
pour certains, vous 
trouverez même des 
listings pouvant 
dispenser des vies 
infinies, listings présents 
dans notre rubrique 
«Vous avez dit astuces ?». 
Il ne nous reste plus qu'à 
vous dire une seule 
chose : n'hésitez pas à 
vous régaler avec tous ces 
indispensables ! 




AFTER BURNER 



Le hasard du classement par ordre al- 
phabétique nous fait ouvrir ce dos- 
sier avec un logiciel d'une qualité superbe 
qui nous rappelle la version Sega. De quoi 
s'agit-il ? Aux commandes de votre F-14 
préféré vous prenez les airs pour accom- 
plir une mission de longue haleine pour 
laquelle vous disposez d'un plein d'es- 
sence, de munitions et de missiles. Les 
attaques produiront de jour comme de 
nuit avec des phases intermédiaires de 
réapprovisionnement (au 3ème niveau, 
5ème niveau, 9ème niveau. . . ). Ce qui est 
frappant avec After Burner, c'est la qua- 
lité et la vitesse de l'animation et des 
couleurs utilisées ; bien entendu, pour 
obtenir ce résultat, ce sont les décors q 



■s qui 



mm ^ 




en ont quelque peu pâti mais ceci consti- 
tue à notre avis le meilleur choix qui 
pouvait être effectué. 



Pour bien jouer, il faut posséder des qualités 
que nous ne pouvons pas vous inculquer : ce 
sont la dextérité, la présence d'esprit et la 
rapidité d'action ; mais les conseils suivants 
peuvent vous aider à les améliorer. Tout 
d'abord, tous les avions du même type que 
ceux de la première attaque peuvent être dé- 
truits avec le tir continu ; alors dans la me- 
sure du possible, ne gaspillez pas vos missi- 
les qui sont comptés. Ensuite, gardez la tête 
froide face aux avions tirant des missiles ; pour 
cela, ne vous agitez pas dans tous les sens 
mais ne bougez pas jusqu'à ce que vous soyez 
localisé et que les missiles soient partis. Alors, 
allez vite dans la direction opposée.. . 
Enfin, pour le niveau où vous êtes attaqué 
par derrière par un avion mitrailleur, 
bloquez-vous en haut de l'écran, vous serez 
inaccessible. 



Edité par : Activision 
Prixindicatif:K7,99¥ 
DK, 149 F 



BOULDEUR 



Voici la preuve par A+B qu'il est pos- 
sible de jouer avec un jeu d'arcade et 
d'être obligé de se creuser les méninges. . . 

Bouldeur est inspiré du célèbre Boulder 
Dash et il s'agit au fil des tableaux de se 



frayer un chemin au travers des murs et 
des pierres pour atteindre la sortie. 
Bouldeur a des graphismes soignés, une 
bonne animation, 72 tableaux PLUS un 
éditeur de tableaux qui vous permet de 
créer les vôtres . W- 



Chaque tableau pourra être résolu avec une 
dose de réflexion préliminaire ; utilisez donc 
l'éditeur de tableaux permettant de les visua- 
liser pour vous en imprégner. Par ailleurs, 
sachez que lorsque vous hésitez entre plusieurs 



portes dans un tableau, la plus 
évidente n'est pas forcément la 
bonne. 

Edité par -.B.E.P. 

Prix indicatif :DK, 120 F 



CORRUPTION 




Vous venez tout juste d'être promu 
associé d'une grande compagnie 
d'électronique. 

Votre vie va se trouver modifiée à cause 
de cela, mais pas vraiment comme vous 
l'espériez. 

En effet, votre arrivée dans cette société 
ne semble pas vous apporter toutes les 
joies et tous les avantages dus à votre rang. 
Il vous semble même que l'on vous tienne 
un peu à l'écart en ne vous mettant pas 

it des affaires traitées. 
Les secrétaires à votre disposition sem- 
blent n'être là que pour vous empêcher 
d'accéder aux documents importants. 
Vous êtes même privé de téléphone. 
Décidé à en savoir plus, vous commen- 
cez à mener votre enquête dans les dif- 



férents locaux de la boîte et vous n'allez 
pas être déçu par vos découvertes. 

En fait, vous découvrez un véritable 
complot monté contre vous. 



Le premier objet important est le sac de dro- 
gue que vous trouvez sous le «cubide». Ra- 

z toutes les preuves et rendez-i 
dans le parking. 
Un autre document in 
portant se trouve 
dans la Vol- 



faut prendre le tournevis de votre boîte 
à gant pour briser la vitre de la voiture 
suédoise. 

La cassette doit être écoutée sur votre 
autoradio. 

Dans les rues, faites bien attention aux 
feux : les voitures n'hésiteront pas à se 
jeter sur vous. 

Beaucoup plus tard au casino, les jeux 
ont des résultats pas du tout aléatoires. 
Suivez la partie à chaque coupjouépour 
le somme importante. 

Edité par: 
Rainbird 
Prix 

indicatif : 
non com- 
muniqué 
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Il y a sans conteste deux qualités 
que nous pouvons reconnaître à 
Hewson : ce sont les couleurs et l'ac- 
tion. Cet éditeur nous l'avait déjà 
montre avec Cybernoïd et il a réci- 
divé avec le numéro 2. Le principe 
de jeu est toujours le même : vous êtes 
aux commandes d'une puissante ma- 
chine de combat et devez surmon- 
ter tous les obstacles et les ennemis 
qui se présentent à vous et passer 
ainsi les écrans les uns après les au- 
tres. Il faut noter que dans Cybernoïd 
II, votre vaisseau a de nouvelles 
propriétés mais elles ne seront pas 
de trop car les ennemis sont agres- 
sifs et ont tous une méthode diffé- 
rente d'attaque. C'est cette diversité 
qui est séduisante dans ce logiciel 
d'autant plus que la qualité des gra- 
phismes, des couleurs et de l'anima- 
tion sont là pour compléter le ta- 
bleau... 



Avant toute chose, il faut savoir que Cyber- 
noïd II n'est pas facile et qu'il va vous falloir 
beaucoup de dextérité et de persévérance pour 
réussir à dépasser les 3 ou 4 premiers écrans. 
Sachant qu'il y en a plus de 50 sur 4 niveaux 
différents, vous imaginez bien ce qui vous 
attend ; pour vous défendre, vous avez à vo- 
tre disposition 7 types d'armes {accessibles 
par les chiffres là 7) qui trouvent leur utili- 
sation à des instants précis : «Bombs» en règle 




générale, «Time» laisse des bombes à 
retardement, «Shield» vous rend invul- 
nérable provisoirement (dommage qu'il n'y 
en ait qu'un mais c'est efficace contre les che- 
nilles), «Bounce» lance des petites boules vertes 
dans tous les sens ce qui est très efficace, 
«Seeker» tire en biais, «Smart» fait le grand 
ménage mais également une seule fois et, enfin, 
«Track» suit le bord de l'écran et nettoie en 
douceur... Seules la pratique et l'expérience 
vous permettront de sélectionner les bonnes 
armes mais vous n'avez que 4 vies et le temps 
pour chaque niveau est compté alors si vous 
chutez toujours au même endroit et que vous 
voulez voir les 4 niveaux avant de vous re- 
trouver au premier, redéfinissez les touches 
en début de jeu avec 0,R,Get Y. Vous se- 
rez alors invulnérable mais sachez quand même 
que la dextérité reste de mise si vous voulez 
progresser... 

Edité par : Hewson 

Prix indicatif :K7, 95F;DK, 135 F 




Dj\RK 
SIDE 



La planète Evath est menacée par une 
arme redoutable : un canon laser ins- 
tallé sur une des lunes du système. Ce 
canon est alimenté en énergie par un ré- 
seau de capteurs solaires. Un héros se pro- 
pose de se rendre sur la lune Tricuspid 
et de désactiver le réseau. 
Malheureusement, les anciens habitants 
ont laissé des pièges à la surface de Tri- 



cuspid. Pourra-t-il 
réussir sa mission 
grâce aux propul- 
seurs installés sur 
son équipement ? 



Celaparaît évident: 
faire un flan très 
détaillé avec des 
symboles pour le ra- 
vitaillement et 
l'énergie. 
Gardez toujours 
suffisamment de carburant pour «grimper» 
dans les souterrains jusqu'au niveau des trap- 
pes. Les souterrains sont accessibles à partir 
du premier écran en entrant dans la maison. 
La première pièce contient une table, deux pa- 
rallélépipèdes rouges ainsi qu'un hexagone noir 
sur le mur. 

Les trois derniers objets sont des réservoirs 
d'énergie. On accède à l'autre pièce en s' ac- 
croupissant pour passer par la petite ouver- 
ture en bas du mur. 



Une fois dans le souterrain (du côté 
«light») 

il faut rejoindre l'»Equator tunnel» pour 
atteindre le secteur Obéron où deux ECD 
attendent d'être détruits. 

N'oubliez pas de tirer sur les objets ren- 
contrés : cela permet parfois de révéler 
des mécanismes cachés (les pyramides qui 
répartissent l'énergie, les portes, les trans- 
porteurs). 

Enfin, observez la démo, vous y trouve- 
rez des détails intéressants. 

Edité par : Incentive Software 
Prix indicatif : Non communiqué. 



De l'autre côté, il faut tirer sur le U 
faire apparaître la trappe. 



ns pour 




DRAGON NINJA 



Voici une bonne adaptation du jeu 
d'arcade sur CPC où vous pouvez 
goûter avec plaisir les graphismes colo- 
rés et la rapidité d'action qui vous assure 
une pression permanente. 
Suivant un ordre de difficulté croissant, 
vous avez 7 niveaux différents à accom- 
plir avec à la fin de chacun d'eux un 
monstre à anéantir. 

Est-il besoin de vous préciser qu'une 
bonne pratique du joystick est requise ? 




Quand vous le pouvez, dans les 1er et 4ème 
tableaux, évoluez de préférence dans le haut 
de l'écran, vous éviterez ainsi les méchants 
toutous noirs. 

Pour le 1er monstre, tapez sans répit un coup 
à droite, un coup à gauche, il ne verra pas le 

En ce qui concerne le second tableau, suivez 
bien le rythme du scrolîing et ne descendez 
surtout pas. 

Un petit tuyau pour la première apparition 
de la farouche amazone (coriace, celle-là !) : 
tenez-vous au début de la 2ème remorque, 
ainsi elle se présentera juste devant vous et 
vous n'aurez plus qu'à frapper. . . 
Le 3ème tableau constitue un passage diffi- 
cile dans le logiciel sauf si vous appliquez la 
méthode suivante : dès que vous le pouvez, 
plongez-vous dans l'eau, vous serez alors 
presque inaccessible mais n'oubliez pas pour 
autant de continuer à frapper. 



Quant au monstre de cette partie, 
coincez-le par exemple en bas à gauche 
de l'écran. Vous pourrez ainsi le détruire 
sans qu'il réussisse à se dédoubler. 
Enfin, en règle générale, vous anéanti- 
rez les monstres toujours de la même ma- 
nière : frapper une fois, se mettre hors 
de leur portée, revenir, frapper... 

Edité par : Imagine 

Prix indicatif: K7, 99 F ; DK, 149 F 
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«& FORGET 



Vous et votre bolide répondant 
au doux nom de Thunder Mas- 
ter êtes investis de la délicate mis- 
sion de parer à tout conflit mondial. 

Pour cela, vous disposez d'un plein 
d'essence et de missiles à propulsion 
tétranucléaire guidés par fréquence 
vocale indécodable ; par ailleurs, 
votre champ d'action est très impor- 
tant car, sur 3 niveaux de difficulté 
croissante, vous n'avez pas moins de 
18 conflits à appréhender. 

Parcourant ainsi le monde, vous vivez 
votre aventure sur toutes sortes de 
décors de fond : la neige, le désert, 
la verdure... les ennemis que vous 
rencontrez sont au sol, tanks ou pos- 
tes d'armes fixes, ou dans les airs, hé- 
licoptères ; il faut également se mé- 
fier des obstacles naturels comme les 




Bien entendu, il est fondamental de bien contrôler le 
véhicule et sa vitesse et il est très important de récupé- 
rer un maximum de bonus en se méfiant en priorité 
des postes d'armes fixes. 

Voici un truc infaillible pour ne jamais être 
atteint par ces derniers : dès le début de 
la course, vous mettez plein pot et 
vous calez à l'extrême droite de l'éc 

Ensuite, vous vous autorisez Quelques 
écarts pour les réserves de carburant. 

Far contre, si vous souhaitez une 
réserve constante d'essence sans ef- 
fort pour vous permettre de «batifo- 
ler» un peu plus, rendez-vous direc- 
tement dans notre rubrique: «Vous 
avez dit astuces ?». 



Edité par : Titus 
Prix indicatif : K7, 129 F 
DK, 169 F 




rochers et surveiller l'apparition de petits cônes bleus qui 
ont un double effet : refaire un plein de carburant et oc- 
troyer des points de bonus. . . 

Fire & Forget a l'avantage d'allier l'action et la simula- 
tion avec des graphismes de bonne qualité et une ani- 
mation très rapide. 





GAME 
0\SER II 



Ce second épisode met à nou- 
veau en scène Arkos, serviteur 
dévoué de Gremla la cruelle 
qui s'était rebellé contre 
celle-ci. 

En fait, votre but est de re- 
trouver Arkos qui est il 



trouvable, et pour cause, puisqu'il est retenu prison- 
nier sur la planète-prison Phantis. Cette mission est 
divisée en 2 parties avec en fin de Ire partie, un code 
absolument nécessaire pour accéder à la 
seconde. 

Pour réussir à traverser les 10 zones qui 
composent Came Over II, une bonne pra- 
tique du joystick est nécessaire sur- 
tout pour la seconde par- 



tie qui est plus dif- 
ficile. 

Quant aux graphismes, 
ils sont colorés et l'animation 
de bonne qualité quelle que soit 
traversée ; avant de passer 
à quelques conseils, notez bien le 
code qui vous permettra de tester vos 
capacités dans la seconde partie même 
pas atteint la fin de la pre- 
84187... 



Le début de la partie commence par un shoot 
them up ; il faut donc, avec un peu d'expé- 
rience, prévenir l'arrivée des ennemis afin de 
les détruire avant qu'ils aient pu faire feu. 



La première zone est de même style et vous 
devez absolument passer au-dessus des bou- 
les incandescentes de magma en étant rapide. 



Vous pénétrez ensuite dans des grottes 
où une bonne dose de dextérité permet 
d'atteindre le marécage après avoir ter- 
rassé de redoutables serpents qui doivent 
recevoir 3 tirs dans la tête. . . 

Dans le marécage, ayez des yeux partout 
devant, derrière et en haut d'autant plus 
que votre monture n'est pas très rapide ! 

Quant à la seconde partie, elle est acces- 
sible jusqu'au moment où vous dispo- 
sez du turbo-laser à ions et du chargeur 
de protons ; ensuite il faut remonter sur 
la droite pour passer à la partie où se 
trouve la porte bleue. 

Ce passage est délicat et il faut vous 
avancer au maximum avant de sauter. 
Un dernier conseil : cherchez tous les 
cœurs vous donnant des vies supplémen- 
taires, vous en aurez besoin ! 

Edité par : Electronic Arts 
Prix indicatif: K7, 99 F 
DK, 149 F 
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GUNSHIP 



Gunship, c'est le nom de code de 
cette redoutable machine de 

guerre qu'est l'hélico Apache 

AH-64A. 

A ses commandes vous allez devoir 
accomplir un grand nombre de mis- 
sions et, si vous réussissez, vous 
pourrez faire une belle moisson de 
médailles (le rêve du militaire, non ?). 

MBSÊÊÊÊÊÊÊÊ 



Dans un premier temps, acceptez les mis- 
sions d'entraînement qui vous seront 
offertes. 

Avec elles, vous apj>rendrez à manier 
l'hélico. Les principales commandes sont 



le «pas collectif» qui réglera la montée ou la 
descente de l 'hélico. Pour la translation, vous 
utiliserez le «pas cyclique» qui abaisse ou relève 
le nez de l'hélico. 

Quand le nez pique, la vitesse s'accroît mais 
parallèlement il faut veiller à conserver l'al- 
titude au moyen du «pas collectif». Atten- 
tion à ne pas voler trop haut (300 pieds maxi- 



Comme l'Apache n'est pas un hélico de tou- 
risme, une bonne utilisation du système d'ar- 
mes est indispensable. 

Ne tirez pas n'importe quoi sur n'importe 
quelle cible (à ce propos, veillez à ne pas dé- 
truire vos alliés). Les canons sont efficaces 
contre les troupes d'infanterie mais inopérants 



sur des chars ou un bunker ! Pré- 
férez missiles et roquettes dans 
ces cas précis. 

Ne négligez pas votre défense : les missiles 
sol-air et les avions ou hélicos ennemis sont 
redoutables. Conservez un œil sur l'écran radar 
et sur les indicateurs de menaces. 

N'oubliez jamais que le nombre de points et 
vos promotions sont conditionnés par le dan- 
ger des missions acceptées et... par le retour 
sur une base amie. 

Bons vols aux commandes du Gunship ! 

Edité par : Microprose 
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LE MANOIR 
DE 

MORTEVIELLE 

Réaliser un logiciel d'aventure doté 
d'une bonne synthèse vocale, voici un 
pari gagné par Lankhor... 

En tant que détective, vous recevez un 
appel d'une vieille connaissance, Julia, qui 
vous invite à vous rendre au manoir de 
Mortevielle. 



► Une fois arrivé sur les lieux, vous appre- 
nez que Julia est morte, décédée appa- 
remment de mort naturelle. 

Alors, où se trouve le mystère ? 

C'est ce que vous devez découvrir en 
utilisant les menus déroulants dont vous 
disposez et en examinant les graphismes 
de qualité qui vous sont offerts. 




Nous n'allons pas vous donner la solution 
complète (pas encore !) mais vous indiquer 
les éléments nécessaires et les lieux stratégi- 
ques pour réussir à éclaircir ce mystère. 
Parmi tous les objets que vous découvrez, voici 
ceux qui sont indispensables : un poignard, 
une bague surmontée d'une croix, un objet 
en bois, une baguette et 



Quant aux lieux où vous pourrez dénouer 
l'intrigue, il y a essentiellement la cave 
et le grenier où vous avez des actions spé- 
cifiques à accomplir. Pour ce qui est des 
réponses aux 10 questions, cherchez dans 
le manoir tous les indices et, en particu- 
lier, profitez du rassemblement à la cha- 
pelle pour visiter les chambres tranquil- 

Editêpar : Lankhor 
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OPERA TION 
WOLF 




nccrijc tuc uncTnrcc i 



C'est une véritable opération kami- 
kaze qui vous est proposée sur 6 éta- 
pes se déroulant dans des espaces aussi 
différents que, par exemple, la jungle, un 
village ou un aéroport. Le principe est sim- 
ple : tuer ou être tué à petit feu, une échelle 
de vie étant endommagée à chaque fois 
que vous êtes touché. Au début, vous 
disposez de 7 cartouches de mitrailleuse 
et de 5 grenades ce qui n'est pas énorme 
face à la horde d'ennemis que vous de- 
vez abattre sans compter les tanks et les 
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hélicoptères ! De plus, il ne faut pas tou- 
cher les civils et à partir du Sème tableau, 
il faut libérer les otages. Pour vous faci- 
liter un peu les choses, vous récupérez 
en cours de jeu des cartouches de mi- 
trailleuse ou des grenades ; de plus tous 
vos dégâts disparaissent après le 3ème 
tableau et vous bénéficiez d'une nouvelle 
réserve de munitions après le 4ème ta- 
bleau. Alors, pour profiter pleinement de 
ce logiciel à l'action rapide qui demande 
des experts pour parvenir à la fin, lisez 
les quelques conseils qui suivent... 



Commencez par bien «sentir» le déplacement 
de votre viseur car les graphismes sont tels 
que parfois on ne le distingue plus. Comme 
vous pouvez récupérer des armes, vous avez 
intérêt à tirer presque en continu. De plus, 
retenez bien cet ordre dans le choix des enne- 
mis à abattre à l'écran : d'abord les soldats 
en bleu qui lancent des grenades ou poignards 
meurtriers puis les hélicoptères ou les bateaux, 



les tanks et ensuite le reste. Aux 4ème 
et Sème tableaux où les tireurs de pre- 
mier plan ont un gilet pare-balles, il faut 
les viser en pleine tête. Si, après toutes 
ces explications, vous éprouvez encore 
quelques difficultés, alors allez donc faire 
un tour du côté de «Vous avez dit astu- 
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ROBOCOP 



Après avoir subi de sérieux 
dommages en tant qu'humain, on 
a ramassé vos morceaux et on a fait 
de vous une redoutable machine à 
tuer... 

Seulement, la mémoire vous est re- 
venue et vous avez décidé de vous 
venger ! 

Devant des graphismes de bonne 
qualité et une animation relativement 
rapide (sauf dans les séquences où 
vous utilisez des escaliers), vous res- 
sentez une soudaine envie de fran- 
chir les 9 niveaux qui vous séparent 
de la fin. 



Face aux niveaux de pure arcade comme, far 
exemple, les 1er, 3ème ou 5ème, c'est l'expé- 
rience qui se révèle la plus efficace afin de 
prévenir l'attaque des ennemis. 

Par contre, dans le second tableau, s'il vous 
reste beaucoup d'énergie, tirez dans le tas car 
ça n'a alors aucune importance si vous tou- 
chez la fille (la pauvre !). 

Enfin, dans le 4ème tableau, avec la recher- 
che du portrait-robot, n'essayez pas forcément 
de le reconstituer sans faute dès la Ire fois 
car la comparaison des différentes parties est 



plus simple une fois qu'un visage complet est 
affiché. 

Edité par : Océan 
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Voici un logiciel absolument su- 
perbe qui, en plus, a l'avantage 
de présenter 3 parties qui apportent 
une réelles diversité de jeu. 
Par ailleurs, il faut noter une présen- 
tation très agréables avec des graphis- 
mes travaillés, colorés et une anima- 
tion époustouflante, principalement 
dans la seconde partie du jeu. 
Les chevronnés du joystick vont 
pouvoir sans problème se casser les 
ongles sur leur manette... Vous in- 



carnez Savage un valeureux guerrier qui 
est fou furieux pour cause d'enlèvement 
de sa belle. 

Il n'hésite donc pas à asséner de grands 
coups de hache aux monstres qui se pré- 
sentent, il récupère les protections, réser- 
ves d'énergie ou autres armes qui se trou- 
vent sur son chemin, et fait des bonds 
prodigieux et précis pour passer des «lacs» 
de feu avec parfois des points d'appui qui 
s'enfoncent dans les flammes si vous y 
restez trop longtemps. 

La seconde par- 
est infernale et 




oblige à vous faufiler entre des to- 
ems serrés et arrivant rapidement tout en cherchant des crâ- 
nes, fantômes ou autres pour marquer les 400 points néces- 
saires pour aborder la suite dans les meilleures conditions. 
Dans cette partie, vous êtes un oiseau magnifique et fra- 
gile face aux divers monstres ou aux herses qui vous gui- 
dent... 



Pour la Ire partie, vous n'avez d'autre possibilité que d'être 
rapide, expérimenté et déterminé ; vous obtiendrez alors une 
récompense intéressante en fin de partie concrétisée par le 
mot de passe SABATTA qui offre 3 vies pour la seconde par- 
tie et vous donne ainsi l'espoir de la terminer. 

Vous avez alors un nouveau mot de passe, qui, lui aussi, 
vous donne 3 vies pour la dernière partie ; il s'agit cette fois 
de FERGUS... W 





SKWC 



Inspiré du jeu d'arcade Super Qix, c'est 
la première fois qu'il est adapté sur 
Amstrad. Vous commencez par remar- 
quer qu'il y a un graphisme plein écran 
de style Arkanoïd ; les graphismes en 
eux-mêmes sont travaillés et très colo- 
rés et l'animation est très rapide. Il s'agit 
de libérer une princesse qui est 
retenue prisonnière dans un 
château et la légende dit que 



^ Et, si malgré tout, vous n'arrivez pas à ter- 
miner chaque partie de ce jeu qui en vaut la 
peine, allez donc faire un tour du côté de no- 
tre rubrique «Vous avez dit astuces ?» ; vous 
pourrez avoir ainsi des vies infinies.. . 

Edité par : Firebird 
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4 personnages fantastiques viendront un 
jour. 

Pour cela, ils vont devoir traverser plu- 
sieurs territoires où règne une sorcière et 
ses mauvais sorts ainsi qu'un monstre qui 
se trouve dans tous les territoires. 

Etant donné le degré de difficulté, des 
heures d'entraînement seront nécessaires 
pour parvenir à vos fins. 



Edité par : Legend Software 




Testez les capacités de chaque personnage 
à votre disposition et surtout ne restez 
jamais en place car vous perdez une vie. 
Alors, ne laissez pas souffler le monstre 

couvrir les 75 % de 
l'écran nécessaires /mm 
pour passer au ter- fTÊ 
ritoire sui- iMj& 
vont. Jffflffi 




TOTAL ECLIPSE 



Dans les années trente, le monde 
étonné découvre une malédiction 
pharaonique pas piquée des hanne- 
tons : lors de la prochaine éclipse de 
Soleil, une catastrophe interplanétaire 
va être déclenchée dans une des sal- 
les du sommet de la grande pyra- 
mide. 

Un archéologue de renom qui se trou- 
vait justement dans le coin décide de 
se rendre au monument égyptien. 
Muni d'une gourde d'eau, d'une 
boussole et d'une montre, le coura- 
geux explorateur va pénétrer dans le 
labyrinthe des salles. Il ne connaît 
bien sûr pas tous les pièges et les 
dangers que recèle la demeure pha- 
raonique. 

La température à l'intérieur du bâti- 
ment est assez élevée. 



Il importe de se réapprovisionner en eau 
grâce aux petits réservoirs disposés dans 
certaines salles. 

Les momies doivent rester dans leur sar- 
cophage fermé car sinon elles deviennent 
dangereuses. 



pnna- 



Vous avez deux e 
faux : le temps et votre for) 
premier est inaltérable, donc jouez 
plutôt sur le second : renouvelez fré- 
quemment vos réserves d'eau et 
surtout, surtout regardez sous vos 
pieds lorsque vous entrez dans une 
nouvelle pièce (une chute est si vite 
arrivée). Quelques énigmes, l'œil 
qui commande l'ouverture d'une 
porte est désactivé par un autre œil 
situé dans une pièce voisine. 



Les traces de pas révèlent les passages 
secrets. Sous certains angles, les fléchet- 
tes de momies ne peuvent vous attein- 
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TITAN 



Pour changer de leur série de si- 
mulations (Crazy Cars, Fire & 
Forget, Off Shore Warrior), Titus a 
décidé de sortir un casse-briques et 
ils ont très bien fait car Titan est tout 
simplement génial ! 
En effet, les 80 tableaux pésentent la 
particularité de ne pas apparaître en 
entier à l'écran. Par ailleurs, les cou- 
leurs et l'emplacement des bri- 
ques varient à chaque fois ; cer- 
taines briques sont indes- 
tructibles et d'autres doi- 
« frappées 4 fois 
avant de disparaître. 
Enfin, les décors 
jouent un rôle 



thes ou introduisant des difficultés sup- 
plémentaires sous forme de tête de mort, 
par exemple. A noter qu'il faut être très 
vigilant car la surface couverte par la balle 
est grande (notamment dans les derniers 
tableaux) et il faut souligner le scrolling 
saisissant sans oublier les graphismes soi- 



Un point commun à plusieurs tableaux : 
pas être pressé 

e f~ ••ErSS^' ficacement la 




quer la balle et à l'orienter comme vous 
le souhaitez (mais si, c'est possible !). 
Pour changer de direction à angle droit, 
coincer petit à petit la balle contre un 
mur et ceci étant fait, il suffit de mettre 
la batte sur la balle, et de repartir dans 
le sens voulu. Il est également possible 
de bloquer la balle en marche 
sant un tout petit peu sur la batte pour 
coincer la balle. 

Vous modifiez ainsi son angle à vo- 
tre guise. Vous serez donc effi- 
cace dans un minimum de 
temps pour chaque tableau. 

Edité par : Titus /wf'i 
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Nous vous présentons chaque mois quelques 
logiciels qui ont tous un point commun : leur 
prix... 

En effet, ce sont des programmes qui valent 
"20 balles" en Angleterre et vous pourrez vous 
les procurer pour la modique somme de 26 
francs, port compris, en vous adressant chez 
DUCHET COMPUTERS dont voici les coor- 
données : 

51 St George Road 
CHEPSTO WNP6 5 LA 
ANGLETERRE 
Tél. (44) 291. 625. 780 



BOMBJACK 



Est-il encore besoin de présenter Bomb 
Jack qui est devenu véritablement un 
classique parmi les classiques ? C'est un 
événement que son apparition dans la 
catégorie des budgets et vous pouvez tous 
vous précipiter sur cette cassette car une 
logithèque sans Bomb Jack ne se conçoit 
pas ! 

Plongez donc sans restriction dans les 
aventures de ce personnage masqué, vêtu 
d'une cape qui vole à la recherche de 
bombes allumées (parce qu'elles rappor- 
tent 2 fois plus de points, tout en évitant 
les adversaires qu'il n'est même pas per- 
mis de frôler sous peine de mort instan- 
tanée. Heureusement que des capsules 
magiques apparaissent de temps à autre : 
B pour les bonus, P pour transformer les 
ennemis en soleil que l'on peut alors cro- 
quer et E pour donner une vie supplé- 
mentaire. 



Edité par : Encore 
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Stuntbike 
simulator 



Que le maître des cascadeurs entre en 
scène ! Vous pouvez prendre cette 
phrase au sens propre car vous commen- 
cez par arriver en deltaplane et devez faire 
en sorte d'atterrir directement sur votre 
vélo. . . C'est très fort ! La deuxième phase 
consiste à sauter au-dessus de troncs 
d'arbres sachant que la route est truffée 
de crevasses et de cônes de travaux rouge 
et blanc qui vous ralentissent ; à vous de 
choisir le meilleur chemin car, sinon, le 
compte à rebours ne sera pas tendre pour 
vous ! Pour la troisième phase, les obsta- 
cles sont toujours là mais, cette fois, vous 
devez vous précipiter dans des cercles de 
feu pour retomber ensuite sur votre vélo. 
De plus en plus fort ! Mais ce n'est rien à 
côté de la 4ème partie où vous jouez à 
cache-cache avec des camions avant de 
faire une sortie mémorable en hélicoptère ! 
A aucun moment, vous n'aurez touché 
le sol... enfin, si tout se passe bien. 

Edité par : Silverbird 



Notre avis : 



A VIEW 
TOAKILL 



C'est dans la peau d'un agent secret 
hors pair que vous êtes convié à vi- 
vre cette aventure puisqu'il s'agit ni plus 
ni moins de James Bond... Une fois en- 
core, le monde est en péril à cause des 
plans du diabolique Max Zorin ; pour 
contrer cette offensive, vous n'avez pas 
une mais trois missions à accomplir. 
La première se passe dans une mine 
au-dessous de la «Silicon Valley». Il faut 
visiter tous les méandres de la mine pour 
trouver et désamorcer la bombe qui s'y 
trouve en tenant compte du temps qui 
s'écoule et en utilisant les objets que vous 
trouvez. En fin de mission, un code vous 
est fourni et vous partez dans le «City 
Hall» de Los Angeles qui est en flammes. 
Ce n'est pas une mince affaire de se sor- 
tir de cet immeuble... Enfin, tout se ter- 
minera dans les rues de Paris par une 
course folle au volant d'un «bolide» qu'il 
va falloir contrôler correctement jusqu'au 
point fatidique. 



Edité par: Bug Byt. 




Vous aurez peut-être parfois une im- 
pression de mollesse dans le coup de 
pédale, mais il faut noter les graphis- 
mes très colorés et les 5 épreuves pas 
toujours évidentes. A découvrir. 



Astuces 

MÊ ous êtes très nombreux à nous écrire à propos de cette rubrique en 
Wf nous disant en substance : mais comment ça marche ? Alors, pour tout 
W ceux qui éprouvent quelques problèmes avec les bidouilles, voici 

toutes les explications nécessaires. 

Lorsque vous trouvez dans nos colonnes un listing de vies infinies qui vous 
intéresse, allumez tout de suite votre écran de CPC et commencez à le saisir. 
Une fois que cette opération est terminée, vous sauvegardez ce listing sous le 
nom qui vous convient le mieux. 

Pour passer aux essais, vous éteignez puis vous rallumez votre ordinateur et 
vous chargez votre programme de bidouilles par un ordre LOAD; vous 
mettez alors en place le programme concerné par l'astuce et vous lancez la 
mise en route par un ordre RUN ; voilà ! Vous n'avez plus qu'à attendre que 
le jeu soit chargé et vous pourrez alors constater par la pratique toute la 
portée du programme d'astuce. 



10 'SAVAGE Disquette 1ère partie 

20 RODE 2:PRINT ■ Appuyez sur une to 

uche après avoir insère la disquett 

e Savage...' 

30 CALL &BB06 

40 LOAD'L0ADER2.BIN 

50 P0KE fcA0Bl,0:P0KE tA0B2,tAl 

60 FOR l=tcA100 T0 tA107:READ A*:P0K 

E I,VAL("fc"+A$):N£XT I 

70 DATA 3E,FF,32,3C,03,C3,00,01:CAl 

L fcAOOO 

10 'SAVAGE Disquette 2eie PARTIE 

20 H0DE 2:PRIMT «Appuyez sur une to 

uche après avoir insère la disquett 

e Savage face B..." 

30 CALL &BB06 

40 LOAD "L0ADES.BIN 

50 P0KE &A0B1,0:P0KE &A0B2,tAl 

60 FOR I=StA100 T0 tiA107:READ A$:P0K 

E l,VAL(*fc'+At):NEXT I 

70 DATA 3E,3C,32,63,0D,C3,00,01:CAL 

L itAOOO 

10 'SAVAGE Disquette 3eie PARTIE 

20 MODE 2:PR1NT "Appuyez sur une to 

uche après avoir insère la disquett 

e Savage face B..." 

30 CALL &BB06 

40 LOAD "L0ADER2.BIN" 

50 P0KE IA0B 1,1: POKE &A0B2.1À1 

60 FOR I=1A0101 T0 IA10E:READ A$:P0 

KE l,VALCf*A»):HEXT I 

70 DATA 21,3C,08,36,3E,23,36,FF,23, 

36,00,C3,00,01:CALL ItAOOO 





En utilisant chacun des 3 
programmes pour la 
partie au! s'y rapporte, vous serez doté 
de vies infinies ce qui vous permettra 
de terminer chaque Jeu en faisant 
quand même preuve de votre habi- 
leté au maniement du joystick... 

10 ' SAVAGE Cassette 1ère partie 
20 HEHORY &9FFF 
30 LOAD 'LEVELlî'.îtAOOO 
40 POKE tA0E2,Ul:P0KE M0E3,îtAl 
50 FOR 1=0 T0 7:READ A* 
60 POKE fcAlCi*l,ï*L(H"*M)ï8EÏT 
70 CALL &AOO0 

80 DATA 3E,FF,32,3C. 3,C3,00,01 



10 'SAVAGE Cassette 2eie partie 

20 HEHORY &9FFF 

30 LOAD "LEVEL2!',W0OO 

40 POKE lAOE2,fcCl:P0KE U0E3,tAl 

50 FOR [=0 T0 7:READ A* 

60 POKE ItAlCl+LVALCVtAlhNEXT 

70 CALL U000 

80 DATA 3E,FF,32,B1,26,C3,00,01 

10 'SAVAGE Cassette 3eie partie 

20 HEHORY 19FFF 

30 LOAD »LEVEL3!VAO0O 

40 POKE M0E2,fcCl:P0KE U0E3,t<Al 

50 FOR 1=0 T0 7:READ A» 

60 POKE iAlCltl t VAL( , J."*A*):NEXT 

70 CALL ItAOOO 

80 DATA 3E r FF,32,0O,OD,C3,00,Ol 
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OPERATION WOLF 



Pour tous ceux qui s'en- 
traînent depuis des Jours 
et des jours avec Opération Wolf sans 
parvenir à en voir la fin, ce programme 
est votre sauveur. . . D'accord , Il est un 
peu long et fastidieux à taper mais 
quelle joie d'avoir au bout du comp- 
te vies Infinies et réserves de munitions 
et grenades inépuisable. . . 




FI RE AND FORGET 



SI malgré les conseils que 
nous vous avons donnés 
dans notre dossier vous ne terminez 
pas les courses pour cause de man- 
que de fuel, tapez le petit listing sui- 
vant : Il coulera alors à flots. 



10 'PIRE AND FORGET Disquette 

20 0PENOUT"D":HEH0RY fcF7F:CLOSE00T 

30 FOR 1=0 T0 15: INK 1,0:NEXT 

40 L0AD"PR0G",iF80 

50 P0KE &13BD.0:P0KE &53D8,0:P0KE fc 

5353,0 . 

60 CALL fclOOO / VO 



10 'OPERATION U0LF - David SIKA 

20 BORDER 0:H0DE 2: INK 0,0: INK 1,24:PAPE1 0.-PEN 1 

30 PRINT «Patientez... Chargement des datas" 

40 FOR A=ît2000 T0 b22BD:READ Al:B=VAL("i"+Al>:P0IŒ A,B:C=C+B:NFJT 

50 IF CO73088 THEN PRINT CHR$(7);'Erreur dans les datas... VEND 

60 CLS:PR1NT "Insérez la disquette d'Opération Wolf et appuyez sur une touche" 

70 CALL IBB06:CALL L22B0 

80 DATA 00,31, 00,C0,D9, 01, 8D,7F,ED,49,D9,AF,67,08,7C,6C,5D,53, 13,01, 00.A8, 77 
90 DATA ED,BO,21,DD,AA,5D ( 54,13,01, 55, 69,77,ED,B0,D9,0E,89,ED,49,D9,21, 00,06 
100 DATA 3E,44,BE,28,03,23,18.FA,23,23.23,5E,23,56,EB,22,44,A8,CD,44,00,CD,BD 
110 DATA O8,D9,01,8D,7F,ED,49,D9,21.55,A8,0E,FF,C3,16,BD,F3,31,O0,CO,CD,12,A9 
120 DATA 21,8D,A8,CD,64,A8.18,3C,06,10,AF,C5,F5,46,48,23,E5,CD,32.BC,E1,F1,3C 
130 DATA C1,10,F1,7E,E5,CD,0E,BC,E1,23,46,48.CD,38,BC,F3,01,54,7F,3E.10,ED,79 
140 DATA ED,49,C9, 00,09, 0C, 15,03, 06,OF,18,19,1A,01,02,OB,14.0D,OA,00,00,00,3E 
150 DATA 01,01,7E,FA,ED,79,3C,32,AO,AA,CD,2A,A9,21,AD,AA,16,00,OE,49,CD,C4,A9 
160 DATA 3E,03,32,AO,AA,CD,12,A9,3E,01,21,00,CO,CD,68,A9,CD,OE,A9,06,04,C5,21 
170 DATA 00,00,2B,7C,B5,20,FB,C1,10,F4,3E,02,21, 80,01, CD,68,A9,AF,32,36,25,32 
180 DATA A0,2C,2i,F8,A8,ll,50,2C,01,0D,00,ED,B0,01,7E,FA,ED,49,AF,32,A9,AE,32 
190 DATA 9A, AE, 00, 00, 00,00,00,00, 00, 00, 00, FF, 21, 00,6A,FB,E9,3E,28, 18,01, AF, 01 
200 DATA 01,BC,ED,49,04,ED,79,C9,3E,OF,01,54,7F,ED,79,ED,49,3D,F2,21,A9,C9,3E 
210 DATA 03,32,A4,AA,21,00,40,16,00,0E,48,CD,C4,A9, 21, 00,50,16, 00,0E,48,CD,C4 
220 DATA A9.01, 00,02,21, 00,50, 11, 00,40,1A,BE,20,0E,23,13,0B,78,B1,20,FS,21, A4 
230 DATA AA,35,20,D2,O0,21, 40,00,11, 41, 00,01, 00,80,C9,DD,21,AD,AA,4F,DD,7E,00 
240 DATA B9, 28, 0A, DD, 23, DD, 23, DD, 23, DD, 23, 18, F0, DD, 56, 01 , DD, 5E, 02, DD, 46, 03, 3E 
250 DATA 06,93,B8,38,07,7B,80,3D,4F,C3,BO,A9,OE,05,C5,F5,E5,D5,CD,BO,A9,D1,E1 
260 DATA F1,C1,5F,78,93,47,CB,23,CB,23,7C,83,67,1E,01,14,18,D6,7A,32,94,AA,32 
270 DATA 9D,AA,22,F1,A9,7B,32,9F,AA,79,32,A1,AA,18,11,7A,32,94,AA,32,9D,AA,22 
280 DATA F1,A9,79,32,9F,AA,32,A1,AA,U,97,AA,CD,OD,AA,3A,A5,AA,B7,20,F4,11,91 
290 DATA AA,CD,n f A9,ll,97,AA,CD,0D,AA,li,9A,AA,2l,00,40,CD,15,AA,C9,CD,08,AA 
300 DATA 11,95, AA,CD,0D,AA,21,A5,AA,CB,6E,28,F3,C9,01,6O,AA,18,OB,01,42,AA,21 
310 DATA A5,AA, 18,03,01, 37,AA,ED,43,2F,AA,1A,47,13,C5,1A,13,CD,66,AA,C1,10,F7 
320 DATA 01,7E,FB,U,10,20,C3,37,AA,OC,ED,78,77,OD,23,ED,78,F2,37,AA,A2,20,F2 
330 DATA 21,A5,AA,ED,78,FE,C0,38,FA,0C,ED,78,77,0D,23,3E,O5,3D,20,FD,ED,78,A3 
340 DATA 20, EA, 3A, A6, AA, E6, 04, C0, 37, C9, ED, 78, F2, 60, AA, C9, 01 , 7E, FB, F5, ED, 78, 87 
350 DATA 30,FB,87 f 30,02,Fl,C9,Fl,0C,ED,79,0D,3E,05 > 3D,00,20,FC,C9,C5,06,F5,ED 
360 DATA 78,1F,38,FB,ED,78,1F,30,FB,C1,10,FO,C9,03,OF,00,00,01,08,02,4A,00,09 
370 DATA 4C, 00, 00, 00, 48, 02, 48, 2A, FF, 03, 00, 00, 00, 00, 00, 42, 02, 00, 00, 00, 00, 21, 00 
380 DATA 20,11,00,A8,01,00,03,ED,BO,C3,55,A8 
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RESULTATS CONCOURS 



A 320 

Apres vmn »> n I • ■ i : v; . h iinMii t ntrjine aux -.on>mjfKirs de I'A32Uet ,i\mr pleinement profiti du délai de grâce ne! royê 
pour HOfc$i rtVDyûj v..vtr>.' bulletin, wo< i l'iosunt tond^ue d.-s r»^ultats A noter ^ue l'erreur 
U plus fréquente s'.m produite sur la hvcpirTur radio du praie 



QUESTIONS 


REI-ONSCS 


1 - Quel est yorrénom lu jçty A 320 de LoncieK ? 

2 - Que! jour de Li wmaim- <tV*2 -vous rendez-vous avec L* 

3 - jgpiiift est b marque de b voiture garée dant> le parking S 
1 - Combien de personnes mj^imum peuvent monter dan* 

Quelle CM la fréquence radiu du pirate ? 


John 
Jeudi 

8peis..nivs 

■ • Liiiïiiiîii ^ïï:: :: ' : : 



M S GAGNANTS: 



1 - Bri . DESL r\M0E5 l^48l 9 Sylvain d'Anjou/2 - Jeorv-BaptiMc POUUZAC - 34150 Cigna.- 
3 - kan~ Marc JEROME - 54000 Nancy /4 - Ptarre-Andre LAUBU - 0*800 Ca^ne* >ur Mer 
5-|ênmieIUAN-0i>5 0 Ment m /6 - Jean-Mane LLHVt VNN - e»7ii : - ! \snoL RC 



BULLETIN D'ABONNEMENT 




210F 



Nom . 



Adret» ; 



Code postal 
Dote : 



V.lle 



Signature 



\<efo d'écrire en mo/ujeuies 

Bulletin à retourner à l'ordre de tdition* 5QHACOM. 



PORT: 

OOM TOM * étranger 
envoi par avton 
♦ 120F 



Z 

k! 



NE SONT PAS 
RETROACTIFS 



Pour les étrangers (e îèojemeni s* 
fa a soll : 

• par eurochèque (numéro de carte ins 
cntaud09) 

• par mandat international 

• par virement CCP 794 1 7 V Rennes 

G< joiot un chèque ubel'é à l'o'dro do 
Editions SORACOM 
La Haie de Pan 
35170 BRUZ 



lia 





MOULINS ART : le professeur Tournesol a mis 
au point une bombe infernale. Empêchez-la 
d'exploser. (Aventure) 
Prix :120 F 



Bloodstone 



BLOODSTONE : ayant eu un accident de voi- 
ture en pleine nuit, votre seul refuge est un ma- 
noir. Qu allez-vous y découvrir ? (Aventure) 
Prix :120 F 

k HUM ANOID : votre mission consiste à retrou- 
ver les 3 codes d'ouverture du sas de la navette 
emportant le savant Elilhios. (Arcade! Aventure) 
Prix : 120 F 

BOULDER : un jeu inspiré par qui- vous- savez 
mais qui propose de véritables énigmes et un 
éditeur de tableaux en prime. (Arcade) 
Prix :120 F 



3& 



Toujours' 



VLDER 



VS4 , M cade 

Synchro^ _ MC-/ av. 

Merli» 1 _ siroU i. 
V Duel 



.75,00 F 
.75,00 F 
-75,00 F 
-75,00 F 
-75,00 F 
75,00 F' 



A RETOURNER A: 
BRETAGNE EDIT PRESSE 
La Haie De Pan - 35170 BRUZ 
Tél. 99il7.90.37 



Mode de règlement : 

Chèque □ Mandat □ Chèque postal J 



TITRES 



QUANTITE 



Nom . 



. Prénom . 



Adresse - 



Commande en date du : - 
Signature 



Code postal- 



-Ville- 



Logiciels uniquement disponibles sur disquettes ! 



PRIX UNITAIRE 



MONTANT 



FORFAIT 
TORT 



Delà3 
logiciels 



De4à6 
logiciels 



au-dessus 



Total 



Envoi en recommandé 



Montant global 



10 F 



13 F 



20 F 



7F 



I 




SUR 
CPC-464 
664 - 6128 
DISC 





H 



# ■ 




■ : scrciepe : 



Bil l 1 




iinii 



